home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / imsigx_tlb.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-10-16  |  405.7 KB  |  6,632 lines
  1. unit IMSIGX_TLB;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                  //
  5. // -------                                                                  //
  6. // The types declared in this file were generated from data read from a     //
  7. // Type Library. If this type library is explicitly or indirectly (via      //
  8. // another type library referring to this type library) re-imported, or the //
  9. // 'Refresh' command of the Type Library Editor activated while editing the //
  10. // Type Library, the contents of this file will be regenerated and all      //
  11. // manual modifications will be lost.                                       //
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11.1.63  $
  15. // File generated on 3/23/2000 6:31:16 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: H:\IMSI\TCWP60596\Program\IMSIGX60.DLL
  19. // IID\LCID: {6A481400-E531-11CF-A115-00A024158DAF}\0
  20. // Helpfile: 
  21. // HelpString: TurboCAD v4.1 Programmable Objects.
  22. // Version:    4.0
  23. // ************************************************************************ //
  24.  
  25. interface
  26.  
  27. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  28.  
  29. // *********************************************************************//
  30. // GUIDS declared in the TypeLibrary. Following prefixes are used:      //
  31. //   Type Libraries     : LIBID_xxxx                                    //
  32. //   CoClasses          : CLASS_xxxx                                    //
  33. //   DISPInterfaces     : DIID_xxxx                                     //
  34. //   Non-DISP interfaces: IID_xxxx                                      //
  35. // *********************************************************************//
  36. const
  37.   LIBID_IMSIGX: TGUID = '{6A481400-E531-11CF-A115-00A024158DAF}';
  38.   IID_IGlobal: TGUID = '{6A481100-E531-11CF-A115-00A024158DAF}';
  39.   CLASS_Global: TGUID = '{6A481000-E531-11CF-A115-00A024158DAF}';
  40.   IID_IDrawing: TGUID = '{6A481107-E531-11CF-A115-00A024158DAF}';
  41.   IID_Window_: TGUID = '{6A481124-E531-11CF-A115-00A024158DAF}';
  42.   IID_IApplication: TGUID = '{6A481101-E531-11CF-A115-00A024158DAF}';
  43.   IID_AddIns: TGUID = '{6A48112F-E531-11CF-A115-00A024158DAF}';
  44.   IID_AddIn: TGUID = '{6A48112E-E531-11CF-A115-00A024158DAF}';
  45.   IID_ApplicationCallbacks: TGUID = '{6A481104-E531-11CF-A115-00A024158DAF}';
  46.   IID_Drawings: TGUID = '{6A481108-E531-11CF-A115-00A024158DAF}';
  47.   IID_Filters: TGUID = '{6A48111C-E531-11CF-A115-00A024158DAF}';
  48.   IID_Filter: TGUID = '{6A48111B-E531-11CF-A115-00A024158DAF}';
  49.   IID_Graphics: TGUID = '{6A48110A-E531-11CF-A115-00A024158DAF}';
  50.   IID_IGraphic: TGUID = '{6A481109-E531-11CF-A115-00A024158DAF}';
  51.   IID_BrushStyle: TGUID = '{6A481119-E531-11CF-A115-00A024158DAF}';
  52.   IID_BrushPatterns: TGUID = '{6A481146-E531-11CF-A115-00A024158DAF}';
  53.   IID_GraphicCallbacks: TGUID = '{6A48113E-E531-11CF-A115-00A024158DAF}';
  54.   IID_Layer: TGUID = '{6A481115-E531-11CF-A115-00A024158DAF}';
  55.   IID_Style: TGUID = '{6A48113A-E531-11CF-A115-00A024158DAF}';
  56.   IID_Properties: TGUID = '{6A48110F-E531-11CF-A115-00A024158DAF}';
  57.   IID_Property_: TGUID = '{6A48110E-E531-11CF-A115-00A024158DAF}';
  58.   IID_BoundingBox: TGUID = '{6A48111F-E531-11CF-A115-00A024158DAF}';
  59.   IID_IVertex: TGUID = '{6A48110C-E531-11CF-A115-00A024158DAF}';
  60.   IID_Block: TGUID = '{6A481120-E531-11CF-A115-00A024158DAF}';
  61.   IID_GraphicSet: TGUID = '{6A481134-E531-11CF-A115-00A024158DAF}';
  62.   IID_IMatrix: TGUID = '{6A481137-E531-11CF-A115-00A024158DAF}';
  63.   IID_LineStyle: TGUID = '{6A481117-E531-11CF-A115-00A024158DAF}';
  64.   IID_Vertices: TGUID = '{6A48110D-E531-11CF-A115-00A024158DAF}';
  65.   IID_RegenMethod: TGUID = '{6A481113-E531-11CF-A115-00A024158DAF}';
  66.   IID_KeyBindings: TGUID = '{6A481127-E531-11CF-A115-00A024158DAF}';
  67.   IID_KeyBinding: TGUID = '{6A481126-E531-11CF-A115-00A024158DAF}';
  68.   IID_NamedColors: TGUID = '{6A48111E-E531-11CF-A115-00A024158DAF}';
  69.   IID_NamedColor: TGUID = '{6A48111D-E531-11CF-A115-00A024158DAF}';
  70.   IID_ApplicationOptions: TGUID = '{6A481102-E531-11CF-A115-00A024158DAF}';
  71.   IID_RegenMethods: TGUID = '{6A481114-E531-11CF-A115-00A024158DAF}';
  72.   IID_ScaleSystems: TGUID = '{6A481131-E531-11CF-A115-00A024158DAF}';
  73.   IID_ScaleSystem: TGUID = '{6A481130-E531-11CF-A115-00A024158DAF}';
  74.   IID_Selection: TGUID = '{6A48110B-E531-11CF-A115-00A024158DAF}';
  75.   IID_Tables: TGUID = '{6A481139-E531-11CF-A115-00A024158DAF}';
  76.   IID_Table: TGUID = '{6A481138-E531-11CF-A115-00A024158DAF}';
  77.   IID_CommandBars: TGUID = '{6A48112B-E531-11CF-A115-00A024158DAF}';
  78.   IID_CommandBar: TGUID = '{6A48112A-E531-11CF-A115-00A024158DAF}';
  79.   IID_CommandBarControls: TGUID = '{6A481140-E531-11CF-A115-00A024158DAF}';
  80.   IID_CommandBarControl: TGUID = '{6A48113F-E531-11CF-A115-00A024158DAF}';
  81.   IID_Tools: TGUID = '{6A48112D-E531-11CF-A115-00A024158DAF}';
  82.   IID_Tool: TGUID = '{6A48112C-E531-11CF-A115-00A024158DAF}';
  83.   IID_Windows: TGUID = '{6A481125-E531-11CF-A115-00A024158DAF}';
  84.   IID_View: TGUID = '{6A481110-E531-11CF-A115-00A024158DAF}';
  85.   IID_ICamera: TGUID = '{6A481112-E531-11CF-A115-00A024158DAF}';
  86.   IID_PickResult: TGUID = '{6A481123-E531-11CF-A115-00A024158DAF}';
  87.   IID_PickEntry: TGUID = '{6A481122-E531-11CF-A115-00A024158DAF}';
  88.   IID_Blocks: TGUID = '{6A481121-E531-11CF-A115-00A024158DAF}';
  89.   IID_BrushStyles: TGUID = '{6A48111A-E531-11CF-A115-00A024158DAF}';
  90.   IID_GraphicSets: TGUID = '{6A481135-E531-11CF-A115-00A024158DAF}';
  91.   IID_IGrid: TGUID = '{6A481132-E531-11CF-A115-00A024158DAF}';
  92.   IID_Layers: TGUID = '{6A481116-E531-11CF-A115-00A024158DAF}';
  93.   IID_LineStyles: TGUID = '{6A481118-E531-11CF-A115-00A024158DAF}';
  94.   IID_NamedViews: TGUID = '{6A48113D-E531-11CF-A115-00A024158DAF}';
  95.   IID_NamedView: TGUID = '{6A48113C-E531-11CF-A115-00A024158DAF}';
  96.   IID_DrawingOptions: TGUID = '{6A481106-E531-11CF-A115-00A024158DAF}';
  97.   IID_PageSetup: TGUID = '{6A481133-E531-11CF-A115-00A024158DAF}';
  98.   IID_Styles: TGUID = '{6A48113B-E531-11CF-A115-00A024158DAF}';
  99.   IID_Views: TGUID = '{6A481111-E531-11CF-A115-00A024158DAF}';
  100.   IID_UndoRecord: TGUID = '{6A481136-E531-11CF-A115-00A024158DAF}';
  101.   IID_Macros: TGUID = '{D04FB7F1-8D02-11D2-8DAF-000021452DB6}';
  102.   IID_Macro: TGUID = '{D04FB7F0-8D02-11D2-8DAF-000021452DB6}';
  103.   IID_IAppEvents: TGUID = '{6A481301-E531-11CF-A115-00A024158DAF}';
  104.   CLASS_Application_: TGUID = '{6A481001-E531-11CF-A115-00A024158DAF}';
  105.   CLASS_Drawing: TGUID = '{6A481002-E531-11CF-A115-00A024158DAF}';
  106.   CLASS_Graphic: TGUID = '{6A481003-E531-11CF-A115-00A024158DAF}';
  107.   CLASS_Vertex: TGUID = '{6A481004-E531-11CF-A115-00A024158DAF}';
  108.   CLASS_Matrix: TGUID = '{6A481005-E531-11CF-A115-00A024158DAF}';
  109.   CLASS_Camera: TGUID = '{6A481006-E531-11CF-A115-00A024158DAF}';
  110.   CLASS_Grid: TGUID = '{6A481007-E531-11CF-A115-00A024158DAF}';
  111.   IID_IBrushPattern: TGUID = '{6A481145-E531-11CF-A115-00A024158DAF}';
  112.   CLASS_BrushPattern: TGUID = '{6A481009-E531-11CF-A115-00A024158DAF}';
  113.   CLASS_XGlobal: TGUID = '{6A481800-E531-11CF-A115-00A024158DAF}';
  114.   CLASS_XApplication: TGUID = '{6A481801-E531-11CF-A115-00A024158DAF}';
  115.   CLASS_XDrawing: TGUID = '{6A481802-E531-11CF-A115-00A024158DAF}';
  116.   CLASS_XGraphic: TGUID = '{6A481803-E531-11CF-A115-00A024158DAF}';
  117.   CLASS_XVertex: TGUID = '{6A481804-E531-11CF-A115-00A024158DAF}';
  118.   CLASS_XMatrix: TGUID = '{6A481805-E531-11CF-A115-00A024158DAF}';
  119.   CLASS_XCamera: TGUID = '{6A481806-E531-11CF-A115-00A024158DAF}';
  120.   CLASS_XGrid: TGUID = '{6A481807-E531-11CF-A115-00A024158DAF}';
  121.   CLASS_XBrushPattern: TGUID = '{6A481809-E531-11CF-A115-00A024158DAF}';
  122.  
  123. // *********************************************************************//
  124. // Declaration of Enumerations defined in Type Library                  //
  125. // *********************************************************************//
  126. // ImsiEventMask constants
  127. type
  128.   ImsiEventMask = TOleEnum;
  129. const
  130.   imsiEventBeforeExit = $00000001;
  131.   imsiEventDrawingNew = $00000002;
  132.   imsiEventDrawingOpen = $00000004;
  133.   imsiEventDrawingActivate = $00000008;
  134.   imsiEventDrawingDeactivate = $00000010;
  135.   imsiEventDrawingBeforeClose = $00000020;
  136.   imsiEventDrawingBeforeSave = $00000040;
  137.   imsiEventWindowResize = $00000080;
  138.   imsiEventWindowActivate = $00000100;
  139.   imsiEventWindowDeactivate = $00000200;
  140.   imsiEventMouseDown = $00000400;
  141.   imsiEventMouseUp = $00000800;
  142.   imsiEventMouseMove = $00001000;
  143.   imsiEventBeforeDoubleClick = $00002000;
  144.   imsiEventBeforeRightClick = $00004000;
  145.   imsiEventSelectionChange = $00008000;
  146.   imsiEventCommandBarControlHit = $00010000;
  147.   imsiEventCommandBarControlStatus = $00020000;
  148.   imsiEventRunTool = $00040000;
  149.   imsiEventPointSnapped = $00080000;
  150.   imsiEventPointPick = $00100000;
  151.   imsiEventRectanglePick = $00200000;
  152.   imsiEventPolygonPick = $00400000;
  153.   imsiEventViewBeforeRedraw = $00800000;
  154.   imsiEventViewAfterRedraw = $01000000;
  155.   imsiEventVirtualIntersectionPick = $02000000;
  156.   imsiEventCommandBarControlDone = $04000000;
  157.   imsiEventDrop = $08000000;
  158.   imsiEventCancel = $10000000;
  159.   imsiEventUpdateUndo = $20000000;
  160.   imsiEventDrawingAfterSave = $40000000;
  161.  
  162. // ImsiHatchStyle constants
  163. type
  164.   ImsiHatchStyle = TOleEnum;
  165. const
  166.   imsiHatchHorizontal = $00000000;
  167.   imsiHatchVertical = $00000001;
  168.   imsiHatchNorthWest = $00000002;
  169.   imsiHatchCross = $00000004;
  170.   imsiHatchDiagCross = $00000005;
  171.  
  172. // ImsiBrushType constants
  173. type
  174.   ImsiBrushType = TOleEnum;
  175. const
  176.   imsiBrushWinHatch = $00000000;
  177.   imsiBrushWinBitmap = $00000001;
  178.   imsiBrushVectorHatch = $00000002;
  179.  
  180. // ImsiDomain constants
  181. type
  182.   ImsiDomain = TOleEnum;
  183. const
  184.   imsiDomainApp = $00000001;
  185.   imsiDomainDrawing = $00000002;
  186.   imsiDomainGraphic = $00000003;
  187.   imsiDomainVertex = $00000004;
  188.   imsiDomainView = $00000005;
  189.  
  190. // ImsiDirection constants
  191. type
  192.   ImsiDirection = TOleEnum;
  193. const
  194.   imsiDirNone = $00000000;
  195.   imsiDirZPos = $00000001;
  196.   imsiDirYPos = $00000002;
  197.   imsiDirXPos = $00000003;
  198.   imsiDirXNeg = $00000004;
  199.   imsiDirYNeg = $00000005;
  200.   imsiDirZNeg = $00000006;
  201.   imsiDirOpposite = $00000007;
  202.  
  203. // ImsiAlignType constants
  204. type
  205.   ImsiAlignType = TOleEnum;
  206. const
  207.   imsiAlignTop = $00000001;
  208.   imsiAlignCenter = $00000002;
  209.   imsiAlignBottom = $00000003;
  210.   imsiAlignLeft = $00000004;
  211.   imsiAlignRight = $00000005;
  212.  
  213. // ImsiPolyType constants
  214. type
  215.   ImsiPolyType = TOleEnum;
  216. const
  217.   imsiPointList = $00000000;
  218.   imsiLineList = $00000001;
  219.   imsiLineStrip = $00000002;
  220.   imsiTriangleList = $00000003;
  221.   imsiTriangleStrip = $00000004;
  222.   imsiTriangleFan = $00000005;
  223.   imsiQuadList = $00000006;
  224.   imsiIrregPolygon = $00000007;
  225.  
  226. // ImsiRegenMethodType constants
  227. type
  228.   ImsiRegenMethodType = TOleEnum;
  229. const
  230.   imsiVTbl = $00000000;
  231.   imsiAutomation = $00000001;
  232.   imsiScript = $00000002;
  233.  
  234. // ImsiGraphicType constants
  235. type
  236.   ImsiGraphicType = TOleEnum;
  237. const
  238.   imsiPolyline = $0000000B;
  239.   imsiArc = $00000002;
  240.   imsiText = $00000006;
  241.   imsiInsert = $00000011;
  242.   imsiMesh = $00000003;
  243.   imsiSurface = $00000012;
  244.   imsiViewport = $00000004;
  245.   imsiData = $0000000E;
  246.   imsiExtendedData = $00000010;
  247.   imsiOleObject = $0000000F;
  248.   imsiBlock = $00000005;
  249.   imsiGroup = $00000007;
  250.  
  251. // ImsiKeyCategory constants
  252. type
  253.   ImsiKeyCategory = TOleEnum;
  254. const
  255.   imsiKeyCategoryNil = $FFFFFFFF;
  256.   imsiKeyCategoryDisable = $00000000;
  257.   imsiKeyCategoryCommand = $00000001;
  258.   imsiKeyCategoryMacro = $00000002;
  259.   imsiKeyCategoryFont = $00000003;
  260.   imsiKeyCategoryAutoText = $00000004;
  261.   imsiKeyCategoryStyle = $00000005;
  262.   imsiKeyCategorySymbol = $00000006;
  263.   imsiKeyCategoryPrefix = $00000007;
  264.  
  265. // ImsiCoordinateStyle constants
  266. type
  267.   ImsiCoordinateStyle = TOleEnum;
  268. const
  269.   imsiCartesianAbsolute = $00001000;
  270.   imsiCartesianRelative = $00002000;
  271.   imsiPolarRelative = $00004000;
  272.  
  273. // ImsiOleMenuGroup constants
  274. type
  275.   ImsiOleMenuGroup = TOleEnum;
  276. const
  277.   imsiOleMenuGroupNone = $FFFFFFFF;
  278.   imsiOleMenuGroupFile = $00000000;
  279.   imsiOleMenuGroupEdit = $00000001;
  280.   imsiOleMenuGroupContainer = $00000002;
  281.   imsiOleMenuGroupObject = $00000003;
  282.   imsiOleMenuGroupWindow = $00000004;
  283.   imsiOleMenuGroupHelp = $00000005;
  284.  
  285. // ImsiControlType constants
  286. type
  287.   ImsiControlType = TOleEnum;
  288. const
  289.   imsiControlAny = $00000000;
  290.   imsiControlCustom = $00000065;
  291.   imsiControlButton = $00000066;
  292.   imsiControlEdit = $00000067;
  293.   imsiControlDropdown = $00000068;
  294.   imsiControlComboBox = $00000069;
  295.   imsiControlPopup = $0000006A;
  296.   imsiControlFlyoutButton = $0000006B;
  297.   imsiControlLabel = $0000006C;
  298.  
  299. // ImsiBarPosition constants
  300. type
  301.   ImsiBarPosition = TOleEnum;
  302. const
  303.   imsiBarLeft = $00000000;
  304.   imsiBarTop = $00000001;
  305.   imsiBarRight = $00000002;
  306.   imsiBarBottom = $00000003;
  307.   imsiBarFloating = $00000004;
  308.   imsiBarPopup = $00000005;
  309.   imsiBarMenuBar = $00000006;
  310.  
  311. // ImsiBarProtection constants
  312. type
  313.   ImsiBarProtection = TOleEnum;
  314. const
  315.   imsiBarNoProtection = $00000000;
  316.   imsiBarNoCustomize = $00000001;
  317.   imsiBarNoResize = $00000002;
  318.   imsiBarNoMove = $00000004;
  319.   imsiBarNoChangeVisible = $00000008;
  320.   imsiBarNoChangeDock = $00000010;
  321.   imsiBarNoVerticalDock = $00000020;
  322.   imsiBarNoHorizontalDock = $00000040;
  323.  
  324. // ImsiBarType constants
  325. type
  326.   ImsiBarType = TOleEnum;
  327. const
  328.   imsiBarTypeNormal = $00000000;
  329.   imsiBarTypeMenuBar = $00000001;
  330.   imsiBarTypePopup = $00000002;
  331.   imsiBarTypeToolbar = $00000003;
  332.   imsiBarTypeTabbedToolbar = $00000004;
  333.  
  334. // ImsiWindowState constants
  335. type
  336.   ImsiWindowState = TOleEnum;
  337. const
  338.   imsiWSNormal = $00000000;
  339.   imsiWSMaximized = $00000001;
  340.   imsiWSMinimized = $00000002;
  341.  
  342. // ImsiArrangeStyle constants
  343. type
  344.   ImsiArrangeStyle = TOleEnum;
  345. const
  346.   imsiCascade = $00000000;
  347.   imsiTileHorizontal = $00000001;
  348.   imsiTileVertical = $00000002;
  349.  
  350. // ImsiKey constants
  351. type
  352.   ImsiKey = TOleEnum;
  353. const
  354.   imsiKeyNoKey = $000000FF;
  355.   imsiKeyShift = $00000100;
  356.   imsiKeyControl = $00000200;
  357.   imsiKeyCommand = $00000200;
  358.   imsiKeyAlt = $00000400;
  359.   imsiKeyOption = $00000400;
  360.   imsiKeyA = $00000041;
  361.   imsiKeyB = $00000042;
  362.   imsiKeyC = $00000043;
  363.   imsiKeyD = $00000044;
  364.   imsiKeyE = $00000045;
  365.   imsiKeyF = $00000046;
  366.   imsiKeyG = $00000047;
  367.   imsiKeyH = $00000048;
  368.   imsiKeyI = $00000049;
  369.   imsiKeyJ = $0000004A;
  370.   imsiKeyK = $0000004B;
  371.   imsiKeyL = $0000004C;
  372.   imsiKeyM = $0000004D;
  373.   imsiKeyN = $0000004E;
  374.   imsiKeyO = $0000004F;
  375.   imsiKeyP = $00000050;
  376.   imsiKeyQ = $00000051;
  377.   imsiKeyR = $00000052;
  378.   imsiKeyS = $00000053;
  379.   imsiKeyT = $00000054;
  380.   imsiKeyU = $00000055;
  381.   imsiKeyV = $00000056;
  382.   imsiKeyW = $00000057;
  383.   imsiKeyX = $00000058;
  384.   imsiKeyY = $00000059;
  385.   imsiKeyZ = $0000005A;
  386.   imsiKey0 = $00000030;
  387.   imsiKey1 = $00000031;
  388.   imsiKey2 = $00000032;
  389.   imsiKey3 = $00000033;
  390.   imsiKey4 = $00000034;
  391.   imsiKey5 = $00000035;
  392.   imsiKey6 = $00000036;
  393.   imsiKey7 = $00000037;
  394.   imsiKey8 = $00000038;
  395.   imsiKey9 = $00000039;
  396.   imsiKeyBackspace = $00000008;
  397.   imsiKeyTab = $00000009;
  398.   imsiKeyNumeric5Special = $0000000C;
  399.   imsiKeyReturn = $0000000D;
  400.   imsiKeyPause = $00000013;
  401.   imsiKeyEsc = $0000001B;
  402.   imsiKeySpacebar = $00000020;
  403.   imsiKeyPageUp = $00000021;
  404.   imsiKeyPageDown = $00000022;
  405.   imsiKeyEnd = $00000023;
  406.   imsiKeyHome = $00000024;
  407.   imsiKeyInsert = $0000002D;
  408.   imsiKeyDelete = $0000002E;
  409.   imsiKeyNumeric0 = $00000060;
  410.   imsiKeyNumeric1 = $00000061;
  411.   imsiKeyNumeric2 = $00000062;
  412.   imsiKeyNumeric3 = $00000063;
  413.   imsiKeyNumeric4 = $00000064;
  414.   imsiKeyNumeric5 = $00000065;
  415.   imsiKeyNumeric6 = $00000066;
  416.   imsiKeyNumeric7 = $00000067;
  417.   imsiKeyNumeric8 = $00000068;
  418.   imsiKeyNumeric9 = $00000069;
  419.   imsiKeyNumericMultiply = $0000006A;
  420.   imsiKeyNumericAdd = $0000006B;
  421.   imsiKeyNumericSubtract = $0000006D;
  422.   imsiKeyNumericDecimal = $0000006E;
  423.   imsiKeyNumericDivide = $0000006F;
  424.   imsiKeyF1 = $00000070;
  425.   imsiKeyF2 = $00000071;
  426.   imsiKeyF3 = $00000072;
  427.   imsiKeyF4 = $00000073;
  428.   imsiKeyF5 = $00000074;
  429.   imsiKeyF6 = $00000075;
  430.   imsiKeyF7 = $00000076;
  431.   imsiKeyF8 = $00000077;
  432.   imsiKeyF9 = $00000078;
  433.   imsiKeyF10 = $00000079;
  434.   imsiKeyF11 = $0000007A;
  435.   imsiKeyF12 = $0000007B;
  436.   imsiKeyF13 = $0000007C;
  437.   imsiKeyF14 = $0000007D;
  438.   imsiKeyF15 = $0000007E;
  439.   imsiKeyF16 = $0000007F;
  440.   imsiKeyScrollLock = $00000091;
  441.   imsiKeySemiColon = $000000BA;
  442.   imsiKeyEquals = $000000BB;
  443.   imsiKeyComma = $000000BC;
  444.   imsiKeyHyphen = $000000BD;
  445.   imsiKeyPeriod = $000000BE;
  446.   imsiKeySlash = $000000BF;
  447.   imsiKeyBackSingleQuote = $000000C0;
  448.   imsiKeyOpenSquareBrace = $000000DB;
  449.   imsiKeyBackSlash = $000000DC;
  450.   imsiKeyCloseSquareBrace = $000000DD;
  451.   imsiKeySingleQuote = $000000DE;
  452.  
  453. // ImsiProjection constants
  454. type
  455.   ImsiProjection = TOleEnum;
  456. const
  457.   imsiOrthographic = $00000000;
  458.   imsiPerspective = $00000001;
  459.   imsiOblique = $00000002;
  460.  
  461. // ImsiSpaceModeType constants
  462. type
  463.   ImsiSpaceModeType = TOleEnum;
  464. const
  465.   imsiPaperSpace = $00000000;
  466.   imsiModelSpace = $00000001;
  467.  
  468. // ImsiWindowType constants
  469. type
  470.   ImsiWindowType = TOleEnum;
  471. const
  472.   imsiDrawingWindow = $00000000;
  473.   imsiSymbolWindow = $00000001;
  474.   imsiBlocksWindow = $00000002;
  475.   imsiInfoWindow = $00000003;
  476.   imsiStatusDialog = $00000004;
  477.  
  478. // ImsiGridType constants
  479. type
  480.   ImsiGridType = TOleEnum;
  481. const
  482.   imsiGridOrthographic = $00000000;
  483.   imsiGridIsometric = $00000001;
  484.   imsiGridPolar = $00000002;
  485.  
  486. // ImsiOrientation constants
  487. type
  488.   ImsiOrientation = TOleEnum;
  489. const
  490.   imsiPortrait = $00000000;
  491.   imsiLandscape = $00000001;
  492.  
  493. // ImsiDrawingType constants
  494. type
  495.   ImsiDrawingType = TOleEnum;
  496. const
  497.   imsiDrawing = $00000001;
  498.   imsiTemplate = $00000002;
  499.   imsiSymbol = $00000003;
  500.   imsiEmbeddedObject = $00000004;
  501.   imsiLink = $00000005;
  502.  
  503. // ImsiPickType constants
  504. type
  505.   ImsiPickType = TOleEnum;
  506. const
  507.   imsiPickPoint = $00000000;
  508.   imsiPickRect = $00000001;
  509.   imsiPickPoly = $00000002;
  510.   imsiPickAsync = $00000004;
  511.  
  512. // __MIDL___MIDL_itf_Imsigx_0096_0005 constants
  513. type
  514.   __MIDL___MIDL_itf_Imsigx_0096_0005 = TOleEnum;
  515. const
  516.   imsiRenderGraphicInsert = $00000000;
  517.   imsiRenderGraphicDelete = $00000001;
  518.   imsiRenderGraphicChange = $00000002;
  519.  
  520. // ImsiMouseButton constants
  521. type
  522.   ImsiMouseButton = TOleEnum;
  523. const
  524.   imsiNoButton = $00000000;
  525.   imsiLeftButton = $00000001;
  526.   imsiRightButton = $00000002;
  527.   imsiWheelButton = $00000003;
  528.  
  529. type
  530.  
  531. // *********************************************************************//
  532. // Forward declaration of interfaces defined in Type Library            //
  533. // *********************************************************************//
  534.   IGlobal = interface;
  535.   IGlobalDisp = dispinterface;
  536.   IDrawing = interface;
  537.   IDrawingDisp = dispinterface;
  538.   Window_ = interface;
  539.   Window_Disp = dispinterface;
  540.   IApplication = interface;
  541.   IApplicationDisp = dispinterface;
  542.   AddIns = interface;
  543.   AddInsDisp = dispinterface;
  544.   AddIn = interface;
  545.   AddInDisp = dispinterface;
  546.   ApplicationCallbacks = interface;
  547.   ApplicationCallbacksDisp = dispinterface;
  548.   Drawings = interface;
  549.   DrawingsDisp = dispinterface;
  550.   Filters = interface;
  551.   FiltersDisp = dispinterface;
  552.   Filter = interface;
  553.   FilterDisp = dispinterface;
  554.   Graphics = interface;
  555.   GraphicsDisp = dispinterface;
  556.   IGraphic = interface;
  557.   IGraphicDisp = dispinterface;
  558.   BrushStyle = interface;
  559.   BrushStyleDisp = dispinterface;
  560.   BrushPatterns = interface;
  561.   BrushPatternsDisp = dispinterface;
  562.   GraphicCallbacks = interface;
  563.   GraphicCallbacksDisp = dispinterface;
  564.   Layer = interface;
  565.   LayerDisp = dispinterface;
  566.   Style = interface;
  567.   StyleDisp = dispinterface;
  568.   Properties = interface;
  569.   PropertiesDisp = dispinterface;
  570.   Property_ = interface;
  571.   Property_Disp = dispinterface;
  572.   BoundingBox = interface;
  573.   BoundingBoxDisp = dispinterface;
  574.   IVertex = interface;
  575.   IVertexDisp = dispinterface;
  576.   Block = interface;
  577.   BlockDisp = dispinterface;
  578.   GraphicSet = interface;
  579.   GraphicSetDisp = dispinterface;
  580.   IMatrix = interface;
  581.   IMatrixDisp = dispinterface;
  582.   LineStyle = interface;
  583.   LineStyleDisp = dispinterface;
  584.   Vertices = interface;
  585.   VerticesDisp = dispinterface;
  586.   RegenMethod = interface;
  587.   RegenMethodDisp = dispinterface;
  588.   KeyBindings = interface;
  589.   KeyBindingsDisp = dispinterface;
  590.   KeyBinding = interface;
  591.   KeyBindingDisp = dispinterface;
  592.   NamedColors = interface;
  593.   NamedColorsDisp = dispinterface;
  594.   NamedColor = interface;
  595.   NamedColorDisp = dispinterface;
  596.   ApplicationOptions = interface;
  597.   ApplicationOptionsDisp = dispinterface;
  598.   RegenMethods = interface;
  599.   RegenMethodsDisp = dispinterface;
  600.   ScaleSystems = interface;
  601.   ScaleSystemsDisp = dispinterface;
  602.   ScaleSystem = interface;
  603.   ScaleSystemDisp = dispinterface;
  604.   Selection = interface;
  605.   SelectionDisp = dispinterface;
  606.   Tables = interface;
  607.   TablesDisp = dispinterface;
  608.   Table = interface;
  609.   TableDisp = dispinterface;
  610.   CommandBars = interface;
  611.   CommandBarsDisp = dispinterface;
  612.   CommandBar = interface;
  613.   CommandBarDisp = dispinterface;
  614.   CommandBarControls = interface;
  615.   CommandBarControlsDisp = dispinterface;
  616.   CommandBarControl = interface;
  617.   CommandBarControlDisp = dispinterface;
  618.   Tools = interface;
  619.   ToolsDisp = dispinterface;
  620.   Tool = interface;
  621.   ToolDisp = dispinterface;
  622.   Windows = interface;
  623.   WindowsDisp = dispinterface;
  624.   View = interface;
  625.   ViewDisp = dispinterface;
  626.   ICamera = interface;
  627.   ICameraDisp = dispinterface;
  628.   PickResult = interface;
  629.   PickResultDisp = dispinterface;
  630.   PickEntry = interface;
  631.   PickEntryDisp = dispinterface;
  632.   Blocks = interface;
  633.   BlocksDisp = dispinterface;
  634.   BrushStyles = interface;
  635.   BrushStylesDisp = dispinterface;
  636.   GraphicSets = interface;
  637.   GraphicSetsDisp = dispinterface;
  638.   IGrid = interface;
  639.   IGridDisp = dispinterface;
  640.   Layers = interface;
  641.   LayersDisp = dispinterface;
  642.   LineStyles = interface;
  643.   LineStylesDisp = dispinterface;
  644.   NamedViews = interface;
  645.   NamedViewsDisp = dispinterface;
  646.   NamedView = interface;
  647.   NamedViewDisp = dispinterface;
  648.   DrawingOptions = interface;
  649.   DrawingOptionsDisp = dispinterface;
  650.   PageSetup = interface;
  651.   PageSetupDisp = dispinterface;
  652.   Styles = interface;
  653.   StylesDisp = dispinterface;
  654.   Views = interface;
  655.   ViewsDisp = dispinterface;
  656.   UndoRecord = interface;
  657.   UndoRecordDisp = dispinterface;
  658.   Macros = interface;
  659.   MacrosDisp = dispinterface;
  660.   Macro = interface;
  661.   MacroDisp = dispinterface;
  662.   IAppEvents = interface;
  663.   IBrushPattern = interface;
  664.   IBrushPatternDisp = dispinterface;
  665.  
  666. // *********************************************************************//
  667. // Declaration of CoClasses defined in Type Library                     //
  668. // (NOTE: Here we map each CoClass to its Default Interface)            //
  669. // *********************************************************************//
  670.   Global = IGlobal;
  671.   Application_ = IApplication;
  672.   Drawing = IDrawing;
  673.   Graphic = IGraphic;
  674.   Vertex = IVertex;
  675.   Matrix = IMatrix;
  676.   Camera = ICamera;
  677.   Grid = IGrid;
  678.   BrushPattern = IBrushPattern;
  679.   XGlobal = IGlobal;
  680.   XApplication = IApplication;
  681.   XDrawing = IDrawing;
  682.   XGraphic = IGraphic;
  683.   XVertex = IVertex;
  684.   XMatrix = IMatrix;
  685.   XCamera = ICamera;
  686.   XGrid = IGrid;
  687.   XBrushPattern = IBrushPattern;
  688.  
  689.  
  690. // *********************************************************************//
  691. // Declaration of structures, unions and aliases.                       //
  692. // *********************************************************************//
  693.   POleVariant1 = ^OleVariant; {*}
  694.   PWideString1 = ^WideString; {*}
  695.  
  696.   IMSI_BOOL = WordBool; 
  697.   IMSI_COLOR = Integer; 
  698.   ImsiRenderGraphicUpdate = __MIDL___MIDL_itf_Imsigx_0096_0005; 
  699.  
  700. // *********************************************************************//
  701. // Interface: IGlobal
  702. // Flags:     (4416) Dual OleAutomation Dispatchable
  703. // GUID:      {6A481100-E531-11CF-A115-00A024158DAF}
  704. // *********************************************************************//
  705.   IGlobal = interface(IDispatch)
  706.     ['{6A481100-E531-11CF-A115-00A024158DAF}']
  707.     function Get_ActiveDrawing: IDrawing; safecall;
  708.     function Get_ActivePrinter(lcid: Integer): WideString; safecall;
  709.     procedure Set_ActivePrinter(lcid: Integer; const prop: WideString); safecall;
  710.     function Get_ActiveWindow: Window_; safecall;
  711.     function Get_AddIns: AddIns; safecall;
  712.     function Get_Application_: IApplication; safecall;
  713.     function Get_Drawings: Drawings; safecall;
  714.     function Get_Filters: Filters; safecall;
  715.     function Get_KeyBindings: KeyBindings; safecall;
  716.     function Get_Name: WideString; safecall;
  717.     function Get_NamedColors: NamedColors; safecall;
  718.     function Get_Options: ApplicationOptions; safecall;
  719.     function Get_Parent: IApplication; safecall;
  720.     function Get_RegenMethods: RegenMethods; safecall;
  721.     function Get_Selection: Selection; safecall;
  722.     procedure Set_StatusBar(const Param1: WideString); safecall;
  723.     function Get_CommandBars: CommandBars; safecall;
  724.     function Get_Tools: Tools; safecall;
  725.     function Get_Windows: Windows; safecall;
  726.     function BuildKeyCode(BaseKey: ImsiKey; var ModKey: OleVariant; var ModKey2: OleVariant; 
  727.                           var ModKey3: OleVariant): Integer; safecall;
  728.     function KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; safecall;
  729.     property ActiveDrawing: IDrawing read Get_ActiveDrawing;
  730.     property ActivePrinter[lcid: Integer]: WideString read Get_ActivePrinter write Set_ActivePrinter;
  731.     property ActiveWindow: Window_ read Get_ActiveWindow;
  732.     property AddIns: AddIns read Get_AddIns;
  733.     property Application_: IApplication read Get_Application_;
  734.     property Drawings: Drawings read Get_Drawings;
  735.     property Filters: Filters read Get_Filters;
  736.     property KeyBindings: KeyBindings read Get_KeyBindings;
  737.     property Name: WideString read Get_Name;
  738.     property NamedColors: NamedColors read Get_NamedColors;
  739.     property Options: ApplicationOptions read Get_Options;
  740.     property Parent: IApplication read Get_Parent;
  741.     property RegenMethods: RegenMethods read Get_RegenMethods;
  742.     property Selection: Selection read Get_Selection;
  743.     property StatusBar: WideString write Set_StatusBar;
  744.     property CommandBars: CommandBars read Get_CommandBars;
  745.     property Tools: Tools read Get_Tools;
  746.     property Windows: Windows read Get_Windows;
  747.   end;
  748.  
  749. // *********************************************************************//
  750. // DispIntf:  IGlobalDisp
  751. // Flags:     (4416) Dual OleAutomation Dispatchable
  752. // GUID:      {6A481100-E531-11CF-A115-00A024158DAF}
  753. // *********************************************************************//
  754.   IGlobalDisp = dispinterface
  755.     ['{6A481100-E531-11CF-A115-00A024158DAF}']
  756.     property ActiveDrawing: IDrawing readonly dispid 1610743808;
  757.     property ActivePrinter[lcid: Integer]: WideString dispid 1610743809;
  758.     property ActiveWindow: Window_ readonly dispid 1610743811;
  759.     property AddIns: AddIns readonly dispid 1610743812;
  760.     property Application_: IApplication readonly dispid 1610743813;
  761.     property Drawings: Drawings readonly dispid 1610743814;
  762.     property Filters: Filters readonly dispid 1610743815;
  763.     property KeyBindings: KeyBindings readonly dispid 1610743816;
  764.     property Name: WideString readonly dispid 0;
  765.     property NamedColors: NamedColors readonly dispid 1610743818;
  766.     property Options: ApplicationOptions readonly dispid 1610743819;
  767.     property Parent: IApplication readonly dispid 1610743820;
  768.     property RegenMethods: RegenMethods readonly dispid 1610743821;
  769.     property Selection: Selection readonly dispid 1610743822;
  770.     property StatusBar: WideString writeonly dispid 1610743823;
  771.     property CommandBars: CommandBars readonly dispid 1610743824;
  772.     property Tools: Tools readonly dispid 1610743825;
  773.     property Windows: Windows readonly dispid 1610743826;
  774.     function BuildKeyCode(BaseKey: ImsiKey; var ModKey: OleVariant; var ModKey2: OleVariant; 
  775.                           var ModKey3: OleVariant): Integer; dispid 1610743827;
  776.     function KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; dispid 1610743828;
  777.   end;
  778.  
  779. // *********************************************************************//
  780. // Interface: IDrawing
  781. // Flags:     (4416) Dual OleAutomation Dispatchable
  782. // GUID:      {6A481107-E531-11CF-A115-00A024158DAF}
  783. // *********************************************************************//
  784.   IDrawing = interface(IDispatch)
  785.     ['{6A481107-E531-11CF-A115-00A024158DAF}']
  786.     function Get_ActiveWindow: Window_; safecall;
  787.     function Get_Application_: IApplication; safecall;
  788.     function Get_Blocks: Blocks; safecall;
  789.     function Get_BrushStyles: BrushStyles; safecall;
  790.     function Get_BuiltinDocumentProperties: IDispatch; safecall;
  791.     function Get_CustomDocumentProperties: IDispatch; safecall;
  792.     function Get_Embedded: IMSI_BOOL; safecall;
  793.     function Get_FullName: WideString; safecall;
  794.     function Get_Graphics: Graphics; safecall;
  795.     function Get_GraphicSets: GraphicSets; safecall;
  796.     function Get_Grid: IGrid; safecall;
  797.     procedure Set_Grid(const prop: IGrid); safecall;
  798.     function Get_Index: Integer; safecall;
  799.     function Get_Layers: Layers; safecall;
  800.     function Get_LineStyles: LineStyles; safecall;
  801.     function Get_Name: WideString; safecall;
  802.     function Get_NamedViews: NamedViews; safecall;
  803.     function Get_Options: DrawingOptions; safecall;
  804.     function Get_PageSetup: PageSetup; safecall;
  805.     function Get_Parent: IApplication; safecall;
  806.     function Get_Path(lcid: Integer): WideString; safecall;
  807.     function Get_Properties: Properties; safecall;
  808.     function Get_ReadOnly: IMSI_BOOL; safecall;
  809.     function Get_Saved: IMSI_BOOL; safecall;
  810.     procedure Set_Saved(prop: IMSI_BOOL); safecall;
  811.     function Get_Selection: Selection; safecall;
  812.     function Get_Styles: Styles; safecall;
  813.     function Get_Tables: Tables; safecall;
  814.     function Get_Type_: ImsiDrawingType; safecall;
  815.     function Get_UserControl: IMSI_BOOL; safecall;
  816.     function Get_Views: Views; safecall;
  817.     function Get_Windows: Windows; safecall;
  818.     function Get__Handle: Integer; safecall;
  819.     procedure Activate; safecall;
  820.     function AddUndoRecord(lcid: Integer; const MenuText: WideString): UndoRecord; safecall;
  821.     procedure Close(var SaveChanges: OleVariant; var Filename: OleVariant; var Filter: OleVariant); safecall;
  822.     procedure InsertFile(const Filename: WideString; var Filter: OleVariant); safecall;
  823.     function NewWindow: Window_; safecall;
  824.     procedure Paste; safecall;
  825.     procedure PasteSpecial(var DataType: OleVariant; var Link: OleVariant; 
  826.                            var DisplayAsIcon: OleVariant; var IconFileName: OleVariant; 
  827.                            var IconIndex: OleVariant; var IconLabel: OleVariant; 
  828.                            var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  829.                            var Width: OleVariant; var Height: OleVariant; var Anchor: OleVariant); safecall;
  830.     function PickInteractive(Type_: ImsiPickType; var TopLevel: OleVariant; var Arcs: OleVariant; 
  831.                              var Text: OleVariant; var Segments: OleVariant; 
  832.                              var Blocks: OleVariant; var Invisible: OleVariant): PickResult; safecall;
  833.     procedure PrintOut(var From: OleVariant; var To_: OleVariant; var Copies: OleVariant; 
  834.                        var ActivePrinter: OleVariant; var OutputFileName: OleVariant; 
  835.                        var FitToPage: OleVariant; var Collate: OleVariant); safecall;
  836.     function Redo(var Times: OleVariant): IMSI_BOOL; safecall;
  837.     function Repeat_(var Times: OleVariant): IMSI_BOOL; safecall;
  838.     procedure Save; safecall;
  839.     procedure SaveAs(const Filename: WideString; var Filter: OleVariant); safecall;
  840.     procedure SaveCopyAs(const Filename: WideString; var Filter: OleVariant); safecall;
  841.     procedure SelectAll; safecall;
  842.     procedure Send(var Recipients: OleVariant; var Subject: OleVariant; var Message: OleVariant; 
  843.                    var CCRecipients: OleVariant; var BCCRecipients: OleVariant; 
  844.                    var ReturnReceipt: OleVariant); safecall;
  845.     procedure SendMail; safecall;
  846.     function Undo(var Times: OleVariant): IMSI_BOOL; safecall;
  847.     procedure UndoClear; safecall;
  848.     procedure UnselectAll; safecall;
  849.     procedure UpdateLink(var LinkName: OleVariant); safecall;
  850.     function Get_RelativeOrigin: IVertex; safecall;
  851.     procedure Set_RelativeOrigin(const prop: IVertex); safecall;
  852.     function Get_Macros: Macros; safecall;
  853.     procedure RenderScenesGraphicsUpdate(const pDisp: IDispatch; flag: ImsiRenderGraphicUpdate); safecall;
  854.     procedure RenderScenesUpdateChanges; safecall;
  855.     function Get_UCS: IMatrix; safecall;
  856.     property ActiveWindow: Window_ read Get_ActiveWindow;
  857.     property Application_: IApplication read Get_Application_;
  858.     property Blocks: Blocks read Get_Blocks;
  859.     property BrushStyles: BrushStyles read Get_BrushStyles;
  860.     property BuiltinDocumentProperties: IDispatch read Get_BuiltinDocumentProperties;
  861.     property CustomDocumentProperties: IDispatch read Get_CustomDocumentProperties;
  862.     property Embedded: IMSI_BOOL read Get_Embedded;
  863.     property FullName: WideString read Get_FullName;
  864.     property Graphics: Graphics read Get_Graphics;
  865.     property GraphicSets: GraphicSets read Get_GraphicSets;
  866.     property Grid: IGrid read Get_Grid write Set_Grid;
  867.     property Index: Integer read Get_Index;
  868.     property Layers: Layers read Get_Layers;
  869.     property LineStyles: LineStyles read Get_LineStyles;
  870.     property Name: WideString read Get_Name;
  871.     property NamedViews: NamedViews read Get_NamedViews;
  872.     property Options: DrawingOptions read Get_Options;
  873.     property PageSetup: PageSetup read Get_PageSetup;
  874.     property Parent: IApplication read Get_Parent;
  875.     property Path[lcid: Integer]: WideString read Get_Path;
  876.     property Properties: Properties read Get_Properties;
  877.     property ReadOnly: IMSI_BOOL read Get_ReadOnly;
  878.     property Saved: IMSI_BOOL read Get_Saved write Set_Saved;
  879.     property Selection: Selection read Get_Selection;
  880.     property Styles: Styles read Get_Styles;
  881.     property Tables: Tables read Get_Tables;
  882.     property Type_: ImsiDrawingType read Get_Type_;
  883.     property UserControl: IMSI_BOOL read Get_UserControl;
  884.     property Views: Views read Get_Views;
  885.     property Windows: Windows read Get_Windows;
  886.     property _Handle: Integer read Get__Handle;
  887.     property RelativeOrigin: IVertex read Get_RelativeOrigin write Set_RelativeOrigin;
  888.     property Macros: Macros read Get_Macros;
  889.     property UCS: IMatrix read Get_UCS;
  890.   end;
  891.  
  892. // *********************************************************************//
  893. // DispIntf:  IDrawingDisp
  894. // Flags:     (4416) Dual OleAutomation Dispatchable
  895. // GUID:      {6A481107-E531-11CF-A115-00A024158DAF}
  896. // *********************************************************************//
  897.   IDrawingDisp = dispinterface
  898.     ['{6A481107-E531-11CF-A115-00A024158DAF}']
  899.     property ActiveWindow: Window_ readonly dispid 1610743808;
  900.     property Application_: IApplication readonly dispid 1610743809;
  901.     property Blocks: Blocks readonly dispid 1610743810;
  902.     property BrushStyles: BrushStyles readonly dispid 1610743811;
  903.     property BuiltinDocumentProperties: IDispatch readonly dispid 1610743812;
  904.     property CustomDocumentProperties: IDispatch readonly dispid 1610743813;
  905.     property Embedded: IMSI_BOOL readonly dispid 1610743814;
  906.     property FullName: WideString readonly dispid 1610743815;
  907.     property Graphics: Graphics readonly dispid 1610743816;
  908.     property GraphicSets: GraphicSets readonly dispid 1610743817;
  909.     property Grid: IGrid dispid 1610743818;
  910.     property Index: Integer readonly dispid 1610743820;
  911.     property Layers: Layers readonly dispid 1610743821;
  912.     property LineStyles: LineStyles readonly dispid 1610743822;
  913.     property Name: WideString readonly dispid 0;
  914.     property NamedViews: NamedViews readonly dispid 1610743824;
  915.     property Options: DrawingOptions readonly dispid 1610743825;
  916.     property PageSetup: PageSetup readonly dispid 1610743826;
  917.     property Parent: IApplication readonly dispid 1610743827;
  918.     property Path[lcid: Integer]: WideString readonly dispid 1610743828;
  919.     property Properties: Properties readonly dispid 1610743829;
  920.     property ReadOnly: IMSI_BOOL readonly dispid 1610743830;
  921.     property Saved: IMSI_BOOL dispid 1610743831;
  922.     property Selection: Selection readonly dispid 1610743833;
  923.     property Styles: Styles readonly dispid 1610743834;
  924.     property Tables: Tables readonly dispid 1610743835;
  925.     property Type_: ImsiDrawingType readonly dispid 1610743836;
  926.     property UserControl: IMSI_BOOL readonly dispid 1610743837;
  927.     property Views: Views readonly dispid 1610743838;
  928.     property Windows: Windows readonly dispid 1610743839;
  929.     property _Handle: Integer readonly dispid 1610743840;
  930.     procedure Activate; dispid 1610743841;
  931.     function AddUndoRecord(lcid: Integer; const MenuText: WideString): UndoRecord; dispid 1610743842;
  932.     procedure Close(var SaveChanges: OleVariant; var Filename: OleVariant; var Filter: OleVariant); dispid 1610743843;
  933.     procedure InsertFile(const Filename: WideString; var Filter: OleVariant); dispid 1610743844;
  934.     function NewWindow: Window_; dispid 1610743845;
  935.     procedure Paste; dispid 1610743846;
  936.     procedure PasteSpecial(var DataType: OleVariant; var Link: OleVariant; 
  937.                            var DisplayAsIcon: OleVariant; var IconFileName: OleVariant; 
  938.                            var IconIndex: OleVariant; var IconLabel: OleVariant; 
  939.                            var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  940.                            var Width: OleVariant; var Height: OleVariant; var Anchor: OleVariant); dispid 1610743847;
  941.     function PickInteractive(Type_: ImsiPickType; var TopLevel: OleVariant; var Arcs: OleVariant; 
  942.                              var Text: OleVariant; var Segments: OleVariant; 
  943.                              var Blocks: OleVariant; var Invisible: OleVariant): PickResult; dispid 1610743848;
  944.     procedure PrintOut(var From: OleVariant; var To_: OleVariant; var Copies: OleVariant; 
  945.                        var ActivePrinter: OleVariant; var OutputFileName: OleVariant; 
  946.                        var FitToPage: OleVariant; var Collate: OleVariant); dispid 1610743849;
  947.     function Redo(var Times: OleVariant): IMSI_BOOL; dispid 1610743850;
  948.     function Repeat_(var Times: OleVariant): IMSI_BOOL; dispid 1610743851;
  949.     procedure Save; dispid 1610743852;
  950.     procedure SaveAs(const Filename: WideString; var Filter: OleVariant); dispid 1610743853;
  951.     procedure SaveCopyAs(const Filename: WideString; var Filter: OleVariant); dispid 1610743854;
  952.     procedure SelectAll; dispid 1610743855;
  953.     procedure Send(var Recipients: OleVariant; var Subject: OleVariant; var Message: OleVariant; 
  954.                    var CCRecipients: OleVariant; var BCCRecipients: OleVariant; 
  955.                    var ReturnReceipt: OleVariant); dispid 1610743856;
  956.     procedure SendMail; dispid 1610743857;
  957.     function Undo(var Times: OleVariant): IMSI_BOOL; dispid 1610743858;
  958.     procedure UndoClear; dispid 1610743859;
  959.     procedure UnselectAll; dispid 1610743860;
  960.     procedure UpdateLink(var LinkName: OleVariant); dispid 1610743861;
  961.     property RelativeOrigin: IVertex dispid 1610743862;
  962.     property Macros: Macros readonly dispid 1610743864;
  963.     procedure RenderScenesGraphicsUpdate(const pDisp: IDispatch; flag: ImsiRenderGraphicUpdate); dispid 1610743865;
  964.     procedure RenderScenesUpdateChanges; dispid 1610743866;
  965.     property UCS: IMatrix readonly dispid 1610743867;
  966.   end;
  967.  
  968. // *********************************************************************//
  969. // Interface: Window_
  970. // Flags:     (4416) Dual OleAutomation Dispatchable
  971. // GUID:      {6A481124-E531-11CF-A115-00A024158DAF}
  972. // *********************************************************************//
  973.   Window_ = interface(IDispatch)
  974.     ['{6A481124-E531-11CF-A115-00A024158DAF}']
  975.     function Get_Active: IMSI_BOOL; safecall;
  976.     function Get_Application_: IApplication; safecall;
  977.     function Get_Caption: WideString; safecall;
  978.     procedure Set_Caption(const prop: WideString); safecall;
  979.     function Get_DisplayRulers: IMSI_BOOL; safecall;
  980.     procedure Set_DisplayRulers(prop: IMSI_BOOL); safecall;
  981.     function Get_DisplayScrollBars: IMSI_BOOL; safecall;
  982.     procedure Set_DisplayScrollBars(prop: IMSI_BOOL); safecall;
  983.     function Get_Height: Double; safecall;
  984.     procedure Set_Height(prop: Double); safecall;
  985.     function Get_Index: Integer; safecall;
  986.     function Get_Left: Double; safecall;
  987.     procedure Set_Left(prop: Double); safecall;
  988.     function Get_Parent: IDispatch; safecall;
  989.     function Get_Top: Double; safecall;
  990.     procedure Set_Top(prop: Double); safecall;
  991.     function Get_Type_: ImsiWindowType; safecall;
  992.     function Get_UsableHeight: Double; safecall;
  993.     function Get_UsableWidth: Double; safecall;
  994.     function Get_Visible: IMSI_BOOL; safecall;
  995.     procedure Set_Visible(prop: IMSI_BOOL); safecall;
  996.     function Get_Width: Double; safecall;
  997.     procedure Set_Width(prop: Double); safecall;
  998.     function Get_WindowNumber: Integer; safecall;
  999.     function Get_WindowState: ImsiWindowState; safecall;
  1000.     procedure Set_WindowState(prop: ImsiWindowState); safecall;
  1001.     function Get_Zoom: Double; safecall;
  1002.     procedure Set_Zoom(prop: Double); safecall;
  1003.     procedure Activate; safecall;
  1004.     procedure Close(var SaveChanges: OleVariant; var Filename: OleVariant; var Filter: OleVariant); safecall;
  1005.     procedure LargeScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  1006.                           var ToLeft: OleVariant); safecall;
  1007.     function NewWindow: Window_; safecall;
  1008.     procedure SmallScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  1009.                           var ToLeft: OleVariant); safecall;
  1010.     property Active: IMSI_BOOL read Get_Active;
  1011.     property Application_: IApplication read Get_Application_;
  1012.     property Caption: WideString read Get_Caption write Set_Caption;
  1013.     property DisplayRulers: IMSI_BOOL read Get_DisplayRulers write Set_DisplayRulers;
  1014.     property DisplayScrollBars: IMSI_BOOL read Get_DisplayScrollBars write Set_DisplayScrollBars;
  1015.     property Height: Double read Get_Height write Set_Height;
  1016.     property Index: Integer read Get_Index;
  1017.     property Left: Double read Get_Left write Set_Left;
  1018.     property Parent: IDispatch read Get_Parent;
  1019.     property Top: Double read Get_Top write Set_Top;
  1020.     property Type_: ImsiWindowType read Get_Type_;
  1021.     property UsableHeight: Double read Get_UsableHeight;
  1022.     property UsableWidth: Double read Get_UsableWidth;
  1023.     property Visible: IMSI_BOOL read Get_Visible write Set_Visible;
  1024.     property Width: Double read Get_Width write Set_Width;
  1025.     property WindowNumber: Integer read Get_WindowNumber;
  1026.     property WindowState: ImsiWindowState read Get_WindowState write Set_WindowState;
  1027.     property Zoom: Double read Get_Zoom write Set_Zoom;
  1028.   end;
  1029.  
  1030. // *********************************************************************//
  1031. // DispIntf:  Window_Disp
  1032. // Flags:     (4416) Dual OleAutomation Dispatchable
  1033. // GUID:      {6A481124-E531-11CF-A115-00A024158DAF}
  1034. // *********************************************************************//
  1035.   Window_Disp = dispinterface
  1036.     ['{6A481124-E531-11CF-A115-00A024158DAF}']
  1037.     property Active: IMSI_BOOL readonly dispid 1610743808;
  1038.     property Application_: IApplication readonly dispid 1610743809;
  1039.     property Caption: WideString dispid 1610743810;
  1040.     property DisplayRulers: IMSI_BOOL dispid 1610743812;
  1041.     property DisplayScrollBars: IMSI_BOOL dispid 1610743814;
  1042.     property Height: Double dispid 1610743816;
  1043.     property Index: Integer readonly dispid 1610743818;
  1044.     property Left: Double dispid 1610743819;
  1045.     property Parent: IDispatch readonly dispid 1610743821;
  1046.     property Top: Double dispid 1610743822;
  1047.     property Type_: ImsiWindowType readonly dispid 1610743824;
  1048.     property UsableHeight: Double readonly dispid 1610743825;
  1049.     property UsableWidth: Double readonly dispid 1610743826;
  1050.     property Visible: IMSI_BOOL dispid 1610743827;
  1051.     property Width: Double dispid 1610743829;
  1052.     property WindowNumber: Integer readonly dispid 1610743831;
  1053.     property WindowState: ImsiWindowState dispid 1610743832;
  1054.     property Zoom: Double dispid 1610743834;
  1055.     procedure Activate; dispid 1610743836;
  1056.     procedure Close(var SaveChanges: OleVariant; var Filename: OleVariant; var Filter: OleVariant); dispid 1610743837;
  1057.     procedure LargeScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  1058.                           var ToLeft: OleVariant); dispid 1610743838;
  1059.     function NewWindow: Window_; dispid 1610743839;
  1060.     procedure SmallScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  1061.                           var ToLeft: OleVariant); dispid 1610743840;
  1062.   end;
  1063.  
  1064. // *********************************************************************//
  1065. // Interface: IApplication
  1066. // Flags:     (4416) Dual OleAutomation Dispatchable
  1067. // GUID:      {6A481101-E531-11CF-A115-00A024158DAF}
  1068. // *********************************************************************//
  1069.   IApplication = interface(IDispatch)
  1070.     ['{6A481101-E531-11CF-A115-00A024158DAF}']
  1071.     function Get_ActiveDrawing: IDrawing; safecall;
  1072.     function Get_ActivePrinter(lcid: Integer): WideString; safecall;
  1073.     procedure Set_ActivePrinter(lcid: Integer; const prop: WideString); safecall;
  1074.     function Get_ActiveWindow: Window_; safecall;
  1075.     function Get_AddIns: AddIns; safecall;
  1076.     function Get_Application_: IApplication; safecall;
  1077.     function Get_Build(lcid: Integer): WideString; safecall;
  1078.     function Get_Callbacks: ApplicationCallbacks; safecall;
  1079.     function Get_Caption: WideString; safecall;
  1080.     procedure Set_Caption(const prop: WideString); safecall;
  1081.     function Get_DisplayBlocksWindow: IMSI_BOOL; safecall;
  1082.     procedure Set_DisplayBlocksWindow(prop: IMSI_BOOL); safecall;
  1083.     function Get_DisplayEditBar: IMSI_BOOL; safecall;
  1084.     procedure Set_DisplayEditBar(prop: IMSI_BOOL); safecall;
  1085.     function Get_DisplayFullScreen: IMSI_BOOL; safecall;
  1086.     procedure Set_DisplayFullScreen(prop: IMSI_BOOL); safecall;
  1087.     function Get_DisplayInfoWindow: IMSI_BOOL; safecall;
  1088.     procedure Set_DisplayInfoWindow(prop: IMSI_BOOL); safecall;
  1089.     function Get_DisplayRulers: IMSI_BOOL; safecall;
  1090.     procedure Set_DisplayRulers(prop: IMSI_BOOL); safecall;
  1091.     function Get_DisplayScrollBars: IMSI_BOOL; safecall;
  1092.     procedure Set_DisplayScrollBars(prop: IMSI_BOOL); safecall;
  1093.     function Get_DisplayStatusBar: IMSI_BOOL; safecall;
  1094.     procedure Set_DisplayStatusBar(prop: IMSI_BOOL); safecall;
  1095.     function Get_DisplayStatusDialog: IMSI_BOOL; safecall;
  1096.     procedure Set_DisplayStatusDialog(prop: IMSI_BOOL); safecall;
  1097.     function Get_DisplaySymbolWindow: IMSI_BOOL; safecall;
  1098.     procedure Set_DisplaySymbolWindow(prop: IMSI_BOOL); safecall;
  1099.     function Get_Drawings: Drawings; safecall;
  1100.     function Get_Filters: Filters; safecall;
  1101.     function Get_Height: Double; safecall;
  1102.     procedure Set_Height(prop: Double); safecall;
  1103.     function Get_Interactive: IMSI_BOOL; safecall;
  1104.     procedure Set_Interactive(prop: IMSI_BOOL); safecall;
  1105.     function Get_KeyBindings: KeyBindings; safecall;
  1106.     function Get_Left: Double; safecall;
  1107.     procedure Set_Left(prop: Double); safecall;
  1108.     function Get_LibraryPath(lcid: Integer): WideString; safecall;
  1109.     procedure Set_LibraryPath(lcid: Integer; const prop: WideString); safecall;
  1110.     function Get_Name: WideString; safecall;
  1111.     function Get_NamedColors: NamedColors; safecall;
  1112.     function Get_OperatingSystem: WideString; safecall;
  1113.     function Get_Options: ApplicationOptions; safecall;
  1114.     function Get_OrganizationName: WideString; safecall;
  1115.     function Get_Parent: IApplication; safecall;
  1116.     function Get_Path(lcid: Integer): WideString; safecall;
  1117.     function Get_ProfileName(lcid: Integer): WideString; safecall;
  1118.     procedure Set_ProfileName(lcid: Integer; const prop: WideString); safecall;
  1119.     function MessageBox(const Message: WideString; var Flags: OleVariant): Integer; safecall;
  1120.     function Get_Properties: Properties; safecall;
  1121.     function Get_RegenMethods: RegenMethods; safecall;
  1122.     function Get_ScaleSystems: ScaleSystems; safecall;
  1123.     function Get_ScreenUpdating: IMSI_BOOL; safecall;
  1124.     procedure Set_ScreenUpdating(prop: IMSI_BOOL); safecall;
  1125.     function Get_Selection: Selection; safecall;
  1126.     function Get_ShowToolTips: IMSI_BOOL; safecall;
  1127.     procedure Set_ShowToolTips(prop: IMSI_BOOL); safecall;
  1128.     function Get_SnapModes: Integer; safecall;
  1129.     procedure Set_SnapModes(prop: Integer); safecall;
  1130.     procedure Set_StatusBar(const Param1: WideString); safecall;
  1131.     procedure Set_StatusDialogText(const prop: WideString; Param2: POleVariant1); safecall;
  1132.     function Get_Tables: Tables; safecall;
  1133.     function Get_TemplatesPath: WideString; safecall;
  1134.     procedure Set_TemplatesPath(const prop: WideString); safecall;
  1135.     function Get_CommandBars: CommandBars; safecall;
  1136.     function Get_Tools: Tools; safecall;
  1137.     function Get_Top: Double; safecall;
  1138.     procedure Set_Top(prop: Double); safecall;
  1139.     function Get_UsableHeight: Double; safecall;
  1140.     function Get_UsableWidth: Double; safecall;
  1141.     function Get_UserControl: IMSI_BOOL; safecall;
  1142.     procedure Set_UserControl(prop: IMSI_BOOL); safecall;
  1143.     function Get_UserName: WideString; safecall;
  1144.     procedure Set_UserName(const prop: WideString); safecall;
  1145.     function Get_Version(lcid: Integer): WideString; safecall;
  1146.     function Get_Visible: IMSI_BOOL; safecall;
  1147.     procedure Set_Visible(prop: IMSI_BOOL); safecall;
  1148.     function Get_Width: Double; safecall;
  1149.     procedure Set_Width(prop: Double); safecall;
  1150.     function Get_WindowState: ImsiWindowState; safecall;
  1151.     procedure Set_WindowState(prop: ImsiWindowState); safecall;
  1152.     function Get_Windows: Windows; safecall;
  1153.     function BuildKeyCode(BaseKey: ImsiKey; var ModKey: OleVariant; var ModKey2: OleVariant; 
  1154.                           var ModKey3: OleVariant): Integer; safecall;
  1155.     function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  1156.                            var IgnoreUppercase: OleVariant; var CustomDictionary2: OleVariant; 
  1157.                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  1158.                            var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  1159.                            var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  1160.                            var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant): IMSI_BOOL; safecall;
  1161.     function GetOpenFilename(var Filter: OleVariant; var Title: OleVariant; 
  1162.                              var ButtonText: OleVariant; var MultiSelect: OleVariant): WideString; safecall;
  1163.     function GetSaveAsFilename(var InitialFilename: OleVariant; var Filter: OleVariant; 
  1164.                                var Title: OleVariant; var ButtonText: OleVariant): WideString; safecall;
  1165.     procedure Help(var HelpFile: OleVariant; var HelpContextID: OleVariant); safecall;
  1166.     function InputBox(var bstrPrompt: OleVariant; var bstrTitle: OleVariant; 
  1167.                       var Default: OleVariant; var sLeft: OleVariant; var sTop: OleVariant; 
  1168.                       var bstrHelpFile: OleVariant; var ulHelpContextID: OleVariant; 
  1169.                       var sType: OleVariant): OleVariant; safecall;
  1170.     function KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; safecall;
  1171.     procedure PopGraphicDefaults(var PrevDefaults: OleVariant); safecall;
  1172.     procedure PopVertexDefaults(var PrevDefaults: OleVariant); safecall;
  1173.     function PushGraphicDefaults(var Editable: OleVariant; var Visible: OleVariant; 
  1174.                                  var Cosmetic: OleVariant; var Unbounded: OleVariant): Integer; safecall;
  1175.     function PushVertexDefaults(var PenDown: OleVariant; var Selectable: OleVariant; 
  1176.                                 var Snappable: OleVariant; var Editable: OleVariant; 
  1177.                                 var Linkable: OleVariant; var Calculated: OleVariant): Integer; safecall;
  1178.     procedure Quit; safecall;
  1179.     function Redo(var Times: OleVariant): IMSI_BOOL; safecall;
  1180.     function Repeat_(var Times: OleVariant): IMSI_BOOL; safecall;
  1181.     function RunMacro(var Macro: OleVariant; var Arg1: OleVariant; var Arg2: OleVariant; 
  1182.                       var Arg3: OleVariant; var Arg4: OleVariant; var Arg5: OleVariant; 
  1183.                       var Arg6: OleVariant; var Arg7: OleVariant; var Arg8: OleVariant; 
  1184.                       var Arg9: OleVariant; var Arg10: OleVariant; var Arg11: OleVariant; 
  1185.                       var Arg12: OleVariant; var Arg13: OleVariant; var Arg14: OleVariant; 
  1186.                       var Arg15: OleVariant; var Arg16: OleVariant): OleVariant; safecall;
  1187.     procedure SaveWorkspace(var bstrFilename: OleVariant); safecall;
  1188.     function Undo(var Times: OleVariant): IMSI_BOOL; safecall;
  1189.     procedure _GDispatch(hGraphic: Integer; out ppIGraphic: IGraphic; out ppGraphics: Graphics); safecall;
  1190.     procedure _TDispatch(nFamilyIndex: Integer; nToolIndex: Integer; out ppTool: Tool); safecall;
  1191.     procedure _VDispatch(hViewport: Integer; out ppView: View; out ppIDrawing: IDrawing); safecall;
  1192.     function ConnectEvents(const EventSink: IDispatch; var EventMask: OleVariant): Integer; safecall;
  1193.     procedure DisconnectEvents(ConnectionID: Integer); safecall;
  1194.     function RunTurboLISP(var Expression: WideString): WideString; safecall;
  1195.     property ActiveDrawing: IDrawing read Get_ActiveDrawing;
  1196.     property ActivePrinter[lcid: Integer]: WideString read Get_ActivePrinter write Set_ActivePrinter;
  1197.     property ActiveWindow: Window_ read Get_ActiveWindow;
  1198.     property AddIns: AddIns read Get_AddIns;
  1199.     property Application_: IApplication read Get_Application_;
  1200.     property Build[lcid: Integer]: WideString read Get_Build;
  1201.     property Callbacks: ApplicationCallbacks read Get_Callbacks;
  1202.     property Caption: WideString read Get_Caption write Set_Caption;
  1203.     property DisplayBlocksWindow: IMSI_BOOL read Get_DisplayBlocksWindow write Set_DisplayBlocksWindow;
  1204.     property DisplayEditBar: IMSI_BOOL read Get_DisplayEditBar write Set_DisplayEditBar;
  1205.     property DisplayFullScreen: IMSI_BOOL read Get_DisplayFullScreen write Set_DisplayFullScreen;
  1206.     property DisplayInfoWindow: IMSI_BOOL read Get_DisplayInfoWindow write Set_DisplayInfoWindow;
  1207.     property DisplayRulers: IMSI_BOOL read Get_DisplayRulers write Set_DisplayRulers;
  1208.     property DisplayScrollBars: IMSI_BOOL read Get_DisplayScrollBars write Set_DisplayScrollBars;
  1209.     property DisplayStatusBar: IMSI_BOOL read Get_DisplayStatusBar write Set_DisplayStatusBar;
  1210.     property DisplayStatusDialog: IMSI_BOOL read Get_DisplayStatusDialog write Set_DisplayStatusDialog;
  1211.     property DisplaySymbolWindow: IMSI_BOOL read Get_DisplaySymbolWindow write Set_DisplaySymbolWindow;
  1212.     property Drawings: Drawings read Get_Drawings;
  1213.     property Filters: Filters read Get_Filters;
  1214.     property Height: Double read Get_Height write Set_Height;
  1215.     property Interactive: IMSI_BOOL read Get_Interactive write Set_Interactive;
  1216.     property KeyBindings: KeyBindings read Get_KeyBindings;
  1217.     property Left: Double read Get_Left write Set_Left;
  1218.     property LibraryPath[lcid: Integer]: WideString read Get_LibraryPath write Set_LibraryPath;
  1219.     property Name: WideString read Get_Name;
  1220.     property NamedColors: NamedColors read Get_NamedColors;
  1221.     property OperatingSystem: WideString read Get_OperatingSystem;
  1222.     property Options: ApplicationOptions read Get_Options;
  1223.     property OrganizationName: WideString read Get_OrganizationName;
  1224.     property Parent: IApplication read Get_Parent;
  1225.     property Path[lcid: Integer]: WideString read Get_Path;
  1226.     property ProfileName[lcid: Integer]: WideString read Get_ProfileName write Set_ProfileName;
  1227.     property Properties: Properties read Get_Properties;
  1228.     property RegenMethods: RegenMethods read Get_RegenMethods;
  1229.     property ScaleSystems: ScaleSystems read Get_ScaleSystems;
  1230.     property ScreenUpdating: IMSI_BOOL read Get_ScreenUpdating write Set_ScreenUpdating;
  1231.     property Selection: Selection read Get_Selection;
  1232.     property ShowToolTips: IMSI_BOOL read Get_ShowToolTips write Set_ShowToolTips;
  1233.     property SnapModes: Integer read Get_SnapModes write Set_SnapModes;
  1234.     property StatusBar: WideString write Set_StatusBar;
  1235.     property StatusDialogText[const prop: WideString]: POleVariant1 write Set_StatusDialogText;
  1236.     property Tables: Tables read Get_Tables;
  1237.     property TemplatesPath: WideString read Get_TemplatesPath write Set_TemplatesPath;
  1238.     property CommandBars: CommandBars read Get_CommandBars;
  1239.     property Tools: Tools read Get_Tools;
  1240.     property Top: Double read Get_Top write Set_Top;
  1241.     property UsableHeight: Double read Get_UsableHeight;
  1242.     property UsableWidth: Double read Get_UsableWidth;
  1243.     property UserControl: IMSI_BOOL read Get_UserControl write Set_UserControl;
  1244.     property UserName: WideString read Get_UserName write Set_UserName;
  1245.     property Version[lcid: Integer]: WideString read Get_Version;
  1246.     property Visible: IMSI_BOOL read Get_Visible write Set_Visible;
  1247.     property Width: Double read Get_Width write Set_Width;
  1248.     property WindowState: ImsiWindowState read Get_WindowState write Set_WindowState;
  1249.     property Windows: Windows read Get_Windows;
  1250.   end;
  1251.  
  1252. // *********************************************************************//
  1253. // DispIntf:  IApplicationDisp
  1254. // Flags:     (4416) Dual OleAutomation Dispatchable
  1255. // GUID:      {6A481101-E531-11CF-A115-00A024158DAF}
  1256. // *********************************************************************//
  1257.   IApplicationDisp = dispinterface
  1258.     ['{6A481101-E531-11CF-A115-00A024158DAF}']
  1259.     property ActiveDrawing: IDrawing readonly dispid 1610743808;
  1260.     property ActivePrinter[lcid: Integer]: WideString dispid 1610743809;
  1261.     property ActiveWindow: Window_ readonly dispid 1610743811;
  1262.     property AddIns: AddIns readonly dispid 1610743812;
  1263.     property Application_: IApplication readonly dispid 1610743813;
  1264.     property Build[lcid: Integer]: WideString readonly dispid 1610743814;
  1265.     property Callbacks: ApplicationCallbacks readonly dispid 1610743815;
  1266.     property Caption: WideString dispid 1610743816;
  1267.     property DisplayBlocksWindow: IMSI_BOOL dispid 1610743818;
  1268.     property DisplayEditBar: IMSI_BOOL dispid 1610743820;
  1269.     property DisplayFullScreen: IMSI_BOOL dispid 1610743822;
  1270.     property DisplayInfoWindow: IMSI_BOOL dispid 1610743824;
  1271.     property DisplayRulers: IMSI_BOOL dispid 1610743826;
  1272.     property DisplayScrollBars: IMSI_BOOL dispid 1610743828;
  1273.     property DisplayStatusBar: IMSI_BOOL dispid 1610743830;
  1274.     property DisplayStatusDialog: IMSI_BOOL dispid 1610743832;
  1275.     property DisplaySymbolWindow: IMSI_BOOL dispid 1610743834;
  1276.     property Drawings: Drawings readonly dispid 1610743836;
  1277.     property Filters: Filters readonly dispid 1610743837;
  1278.     property Height: Double dispid 1610743838;
  1279.     property Interactive: IMSI_BOOL dispid 1610743840;
  1280.     property KeyBindings: KeyBindings readonly dispid 1610743842;
  1281.     property Left: Double dispid 1610743843;
  1282.     property LibraryPath[lcid: Integer]: WideString dispid 1610743845;
  1283.     property Name: WideString readonly dispid 0;
  1284.     property NamedColors: NamedColors readonly dispid 1610743848;
  1285.     property OperatingSystem: WideString readonly dispid 1610743849;
  1286.     property Options: ApplicationOptions readonly dispid 1610743850;
  1287.     property OrganizationName: WideString readonly dispid 1610743851;
  1288.     property Parent: IApplication readonly dispid 1610743852;
  1289.     property Path[lcid: Integer]: WideString readonly dispid 1610743853;
  1290.     property ProfileName[lcid: Integer]: WideString dispid 1610743854;
  1291.     function MessageBox(const Message: WideString; var Flags: OleVariant): Integer; dispid 1610743856;
  1292.     property Properties: Properties readonly dispid 1610743857;
  1293.     property RegenMethods: RegenMethods readonly dispid 1610743858;
  1294.     property ScaleSystems: ScaleSystems readonly dispid 1610743859;
  1295.     property ScreenUpdating: IMSI_BOOL dispid 1610743860;
  1296.     property Selection: Selection readonly dispid 1610743862;
  1297.     property ShowToolTips: IMSI_BOOL dispid 1610743863;
  1298.     property SnapModes: Integer dispid 1610743865;
  1299.     property StatusBar: WideString writeonly dispid 1610743867;
  1300.     property StatusDialogText[const prop: WideString]: {??POleVariant1} OleVariant writeonly dispid 1610743868;
  1301.     property Tables: Tables readonly dispid 1610743869;
  1302.     property TemplatesPath: WideString dispid 1610743870;
  1303.     property CommandBars: CommandBars readonly dispid 1610743872;
  1304.     property Tools: Tools readonly dispid 1610743873;
  1305.     property Top: Double dispid 1610743874;
  1306.     property UsableHeight: Double readonly dispid 1610743876;
  1307.     property UsableWidth: Double readonly dispid 1610743877;
  1308.     property UserControl: IMSI_BOOL dispid 1610743878;
  1309.     property UserName: WideString dispid 1610743880;
  1310.     property Version[lcid: Integer]: WideString readonly dispid 1610743882;
  1311.     property Visible: IMSI_BOOL dispid 1610743883;
  1312.     property Width: Double dispid 1610743885;
  1313.     property WindowState: ImsiWindowState dispid 1610743887;
  1314.     property Windows: Windows readonly dispid 1610743889;
  1315.     function BuildKeyCode(BaseKey: ImsiKey; var ModKey: OleVariant; var ModKey2: OleVariant; 
  1316.                           var ModKey3: OleVariant): Integer; dispid 1610743890;
  1317.     function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  1318.                            var IgnoreUppercase: OleVariant; var CustomDictionary2: OleVariant; 
  1319.                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  1320.                            var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  1321.                            var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  1322.                            var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant): IMSI_BOOL; dispid 1610743891;
  1323.     function GetOpenFilename(var Filter: OleVariant; var Title: OleVariant; 
  1324.                              var ButtonText: OleVariant; var MultiSelect: OleVariant): WideString; dispid 1610743892;
  1325.     function GetSaveAsFilename(var InitialFilename: OleVariant; var Filter: OleVariant; 
  1326.                                var Title: OleVariant; var ButtonText: OleVariant): WideString; dispid 1610743893;
  1327.     procedure Help(var HelpFile: OleVariant; var HelpContextID: OleVariant); dispid 1610743894;
  1328.     function InputBox(var bstrPrompt: OleVariant; var bstrTitle: OleVariant; 
  1329.                       var Default: OleVariant; var sLeft: OleVariant; var sTop: OleVariant; 
  1330.                       var bstrHelpFile: OleVariant; var ulHelpContextID: OleVariant; 
  1331.                       var sType: OleVariant): OleVariant; dispid 1610743895;
  1332.     function KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; dispid 1610743896;
  1333.     procedure PopGraphicDefaults(var PrevDefaults: OleVariant); dispid 1610743897;
  1334.     procedure PopVertexDefaults(var PrevDefaults: OleVariant); dispid 1610743898;
  1335.     function PushGraphicDefaults(var Editable: OleVariant; var Visible: OleVariant; 
  1336.                                  var Cosmetic: OleVariant; var Unbounded: OleVariant): Integer; dispid 1610743899;
  1337.     function PushVertexDefaults(var PenDown: OleVariant; var Selectable: OleVariant; 
  1338.                                 var Snappable: OleVariant; var Editable: OleVariant; 
  1339.                                 var Linkable: OleVariant; var Calculated: OleVariant): Integer; dispid 1610743900;
  1340.     procedure Quit; dispid 1610743901;
  1341.     function Redo(var Times: OleVariant): IMSI_BOOL; dispid 1610743902;
  1342.     function Repeat_(var Times: OleVariant): IMSI_BOOL; dispid 1610743903;
  1343.     function RunMacro(var Macro: OleVariant; var Arg1: OleVariant; var Arg2: OleVariant; 
  1344.                       var Arg3: OleVariant; var Arg4: OleVariant; var Arg5: OleVariant; 
  1345.                       var Arg6: OleVariant; var Arg7: OleVariant; var Arg8: OleVariant; 
  1346.                       var Arg9: OleVariant; var Arg10: OleVariant; var Arg11: OleVariant; 
  1347.                       var Arg12: OleVariant; var Arg13: OleVariant; var Arg14: OleVariant; 
  1348.                       var Arg15: OleVariant; var Arg16: OleVariant): OleVariant; dispid 1610743904;
  1349.     procedure SaveWorkspace(var bstrFilename: OleVariant); dispid 1610743905;
  1350.     function Undo(var Times: OleVariant): IMSI_BOOL; dispid 1610743906;
  1351.     procedure _GDispatch(hGraphic: Integer; out ppIGraphic: IGraphic; out ppGraphics: Graphics); dispid 1610743907;
  1352.     procedure _TDispatch(nFamilyIndex: Integer; nToolIndex: Integer; out ppTool: Tool); dispid 1610743908;
  1353.     procedure _VDispatch(hViewport: Integer; out ppView: View; out ppIDrawing: IDrawing); dispid 1610743909;
  1354.     function ConnectEvents(const EventSink: IDispatch; var EventMask: OleVariant): Integer; dispid 1610743910;
  1355.     procedure DisconnectEvents(ConnectionID: Integer); dispid 1610743911;
  1356.     function RunTurboLISP(var Expression: WideString): WideString; dispid 1610743912;
  1357.   end;
  1358.  
  1359. // *********************************************************************//
  1360. // Interface: AddIns
  1361. // Flags:     (4416) Dual OleAutomation Dispatchable
  1362. // GUID:      {6A48112F-E531-11CF-A115-00A024158DAF}
  1363. // *********************************************************************//
  1364.   AddIns = interface(IDispatch)
  1365.     ['{6A48112F-E531-11CF-A115-00A024158DAF}']
  1366.     function Get_Application_: IApplication; safecall;
  1367.     function Get_Count: Integer; safecall;
  1368.     function Get_Item(var Index: OleVariant): AddIn; safecall;
  1369.     function Get_Parent: IDispatch; safecall;
  1370.     function Get__NewEnum: IUnknown; safecall;
  1371.     property Application_: IApplication read Get_Application_;
  1372.     property Count: Integer read Get_Count;
  1373.     property Item[var Index: OleVariant]: AddIn read Get_Item;
  1374.     property Parent: IDispatch read Get_Parent;
  1375.     property _NewEnum: IUnknown read Get__NewEnum;
  1376.   end;
  1377.  
  1378. // *********************************************************************//
  1379. // DispIntf:  AddInsDisp
  1380. // Flags:     (4416) Dual OleAutomation Dispatchable
  1381. // GUID:      {6A48112F-E531-11CF-A115-00A024158DAF}
  1382. // *********************************************************************//
  1383.   AddInsDisp = dispinterface
  1384.     ['{6A48112F-E531-11CF-A115-00A024158DAF}']
  1385.     property Application_: IApplication readonly dispid 1610743808;
  1386.     property Count: Integer readonly dispid 1610743809;
  1387.     property Item[var Index: OleVariant]: AddIn readonly dispid 0; default;
  1388.     property Parent: IDispatch readonly dispid 1610743811;
  1389.     property _NewEnum: IUnknown readonly dispid -4;
  1390.   end;
  1391.  
  1392. // *********************************************************************//
  1393. // Interface: AddIn
  1394. // Flags:     (4416) Dual OleAutomation Dispatchable
  1395. // GUID:      {6A48112E-E531-11CF-A115-00A024158DAF}
  1396. // *********************************************************************//
  1397.   AddIn = interface(IDispatch)
  1398.     ['{6A48112E-E531-11CF-A115-00A024158DAF}']
  1399.     function Get_Application_: IApplication; safecall;
  1400.     function Get_Index: Integer; safecall;
  1401.     function Get_Name: WideString; safecall;
  1402.     function Get_Parent: IDispatch; safecall;
  1403.     procedure Delete; safecall;
  1404.     property Application_: IApplication read Get_Application_;
  1405.     property Index: Integer read Get_Index;
  1406.     property Name: WideString read Get_Name;
  1407.     property Parent: IDispatch read Get_Parent;
  1408.   end;
  1409.  
  1410. // *********************************************************************//
  1411. // DispIntf:  AddInDisp
  1412. // Flags:     (4416) Dual OleAutomation Dispatchable
  1413. // GUID:      {6A48112E-E531-11CF-A115-00A024158DAF}
  1414. // *********************************************************************//
  1415.   AddInDisp = dispinterface
  1416.     ['{6A48112E-E531-11CF-A115-00A024158DAF}']
  1417.     property Application_: IApplication readonly dispid 1610743808;
  1418.     property Index: Integer readonly dispid 1610743809;
  1419.     property Name: WideString readonly dispid 1610743810;
  1420.     property Parent: IDispatch readonly dispid 1610743811;
  1421.     procedure Delete; dispid 1610743812;
  1422.   end;
  1423.  
  1424. // *********************************************************************//
  1425. // Interface: ApplicationCallbacks
  1426. // Flags:     (4416) Dual OleAutomation Dispatchable
  1427. // GUID:      {6A481104-E531-11CF-A115-00A024158DAF}
  1428. // *********************************************************************//
  1429.   ApplicationCallbacks = interface(IDispatch)
  1430.     ['{6A481104-E531-11CF-A115-00A024158DAF}']
  1431.     function Get_OnData: WideString; safecall;
  1432.     procedure Set_OnData(const prop: WideString); safecall;
  1433.     function Get_OnDoubleClick: WideString; safecall;
  1434.     procedure Set_OnDoubleClick(const prop: WideString); safecall;
  1435.     function Get_OnDrawingActivate: WideString; safecall;
  1436.     procedure Set_OnDrawingActivate(const prop: WideString); safecall;
  1437.     function Get_OnDrawingDeactivate: WideString; safecall;
  1438.     procedure Set_OnDrawingDeactivate(const prop: WideString); safecall;
  1439.     function Get_OnEntry: WideString; safecall;
  1440.     procedure Set_OnEntry(const prop: WideString); safecall;
  1441.     procedure OnKey(const Key: WideString; var Procedure_: OleVariant); safecall;
  1442.     procedure OnRepeat(const Text: WideString; const Procedure_: WideString); safecall;
  1443.     procedure OnTime(var EarliestTime: OleVariant; const Procedure_: WideString; 
  1444.                      var LatestTime: OleVariant; var Schedule: OleVariant); safecall;
  1445.     procedure OnUndo(const Text: WideString; const Procedure_: WideString); safecall;
  1446.     function Get_OnWindow: WideString; safecall;
  1447.     procedure Set_OnWindow(const prop: WideString); safecall;
  1448.     property OnData: WideString read Get_OnData write Set_OnData;
  1449.     property OnDoubleClick: WideString read Get_OnDoubleClick write Set_OnDoubleClick;
  1450.     property OnDrawingActivate: WideString read Get_OnDrawingActivate write Set_OnDrawingActivate;
  1451.     property OnDrawingDeactivate: WideString read Get_OnDrawingDeactivate write Set_OnDrawingDeactivate;
  1452.     property OnEntry: WideString read Get_OnEntry write Set_OnEntry;
  1453.     property OnWindow: WideString read Get_OnWindow write Set_OnWindow;
  1454.   end;
  1455.  
  1456. // *********************************************************************//
  1457. // DispIntf:  ApplicationCallbacksDisp
  1458. // Flags:     (4416) Dual OleAutomation Dispatchable
  1459. // GUID:      {6A481104-E531-11CF-A115-00A024158DAF}
  1460. // *********************************************************************//
  1461.   ApplicationCallbacksDisp = dispinterface
  1462.     ['{6A481104-E531-11CF-A115-00A024158DAF}']
  1463.     property OnData: WideString dispid 1610743808;
  1464.     property OnDoubleClick: WideString dispid 1610743810;
  1465.     property OnDrawingActivate: WideString dispid 1610743812;
  1466.     property OnDrawingDeactivate: WideString dispid 1610743814;
  1467.     property OnEntry: WideString dispid 1610743816;
  1468.     procedure OnKey(const Key: WideString; var Procedure_: OleVariant); dispid 1610743818;
  1469.     procedure OnRepeat(const Text: WideString; const Procedure_: WideString); dispid 1610743819;
  1470.     procedure OnTime(var EarliestTime: OleVariant; const Procedure_: WideString; 
  1471.                      var LatestTime: OleVariant; var Schedule: OleVariant); dispid 1610743820;
  1472.     procedure OnUndo(const Text: WideString; const Procedure_: WideString); dispid 1610743821;
  1473.     property OnWindow: WideString dispid 1610743822;
  1474.   end;
  1475.  
  1476. // *********************************************************************//
  1477. // Interface: Drawings
  1478. // Flags:     (4416) Dual OleAutomation Dispatchable
  1479. // GUID:      {6A481108-E531-11CF-A115-00A024158DAF}
  1480. // *********************************************************************//
  1481.   Drawings = interface(IDispatch)
  1482.     ['{6A481108-E531-11CF-A115-00A024158DAF}']
  1483.     function Get_Application_: IApplication; safecall;
  1484.     function Get_Count: Integer; safecall;
  1485.     function Get_Item(var Index: OleVariant): IDrawing; safecall;
  1486.     function Get_Parent: IApplication; safecall;
  1487.     function Get__NewEnum: IUnknown; safecall;
  1488.     function Add(var Template: OleVariant): IDrawing; safecall;
  1489.     procedure Close; safecall;
  1490.     function Open(const Filename: WideString; var ReadOnly: OleVariant; var Filter: OleVariant): IDrawing; safecall;
  1491.     function _FindIndex(d: Integer): Integer; safecall;
  1492.     property Application_: IApplication read Get_Application_;
  1493.     property Count: Integer read Get_Count;
  1494.     property Item[var Index: OleVariant]: IDrawing read Get_Item;
  1495.     property Parent: IApplication read Get_Parent;
  1496.     property _NewEnum: IUnknown read Get__NewEnum;
  1497.   end;
  1498.  
  1499. // *********************************************************************//
  1500. // DispIntf:  DrawingsDisp
  1501. // Flags:     (4416) Dual OleAutomation Dispatchable
  1502. // GUID:      {6A481108-E531-11CF-A115-00A024158DAF}
  1503. // *********************************************************************//
  1504.   DrawingsDisp = dispinterface
  1505.     ['{6A481108-E531-11CF-A115-00A024158DAF}']
  1506.     property Application_: IApplication readonly dispid 1610743808;
  1507.     property Count: Integer readonly dispid 1610743809;
  1508.     property Item[var Index: OleVariant]: IDrawing readonly dispid 0; default;
  1509.     property Parent: IApplication readonly dispid 1610743811;
  1510.     property _NewEnum: IUnknown readonly dispid -4;
  1511.     function Add(var Template: OleVariant): IDrawing; dispid 1610743813;
  1512.     procedure Close; dispid 1610743814;
  1513.     function Open(const Filename: WideString; var ReadOnly: OleVariant; var Filter: OleVariant): IDrawing; dispid 1610743815;
  1514.     function _FindIndex(d: Integer): Integer; dispid 1610743816;
  1515.   end;
  1516.  
  1517. // *********************************************************************//
  1518. // Interface: Filters
  1519. // Flags:     (4416) Dual OleAutomation Dispatchable
  1520. // GUID:      {6A48111C-E531-11CF-A115-00A024158DAF}
  1521. // *********************************************************************//
  1522.   Filters = interface(IDispatch)
  1523.     ['{6A48111C-E531-11CF-A115-00A024158DAF}']
  1524.     function Get_Application_: IApplication; safecall;
  1525.     function Get_Count: Integer; safecall;
  1526.     function Get_Item(var Index: OleVariant): Filter; safecall;
  1527.     function Get_Parent: IDispatch; safecall;
  1528.     function Get__NewEnum: IUnknown; safecall;
  1529.     procedure Add(const Filename: WideString; var FiltersAdded: OleVariant); safecall;
  1530.     function _FindIndex(TableEntryID: Integer): Integer; safecall;
  1531.     function _ObjectFromID(TableEntryID: Integer): Filter; safecall;
  1532.     property Application_: IApplication read Get_Application_;
  1533.     property Count: Integer read Get_Count;
  1534.     property Item[var Index: OleVariant]: Filter read Get_Item;
  1535.     property Parent: IDispatch read Get_Parent;
  1536.     property _NewEnum: IUnknown read Get__NewEnum;
  1537.   end;
  1538.  
  1539. // *********************************************************************//
  1540. // DispIntf:  FiltersDisp
  1541. // Flags:     (4416) Dual OleAutomation Dispatchable
  1542. // GUID:      {6A48111C-E531-11CF-A115-00A024158DAF}
  1543. // *********************************************************************//
  1544.   FiltersDisp = dispinterface
  1545.     ['{6A48111C-E531-11CF-A115-00A024158DAF}']
  1546.     property Application_: IApplication readonly dispid 1610743808;
  1547.     property Count: Integer readonly dispid 1610743809;
  1548.     property Item[var Index: OleVariant]: Filter readonly dispid 0; default;
  1549.     property Parent: IDispatch readonly dispid 1610743811;
  1550.     property _NewEnum: IUnknown readonly dispid -4;
  1551.     procedure Add(const Filename: WideString; var FiltersAdded: OleVariant); dispid 1610743813;
  1552.     function _FindIndex(TableEntryID: Integer): Integer; dispid 1610743814;
  1553.     function _ObjectFromID(TableEntryID: Integer): Filter; dispid 1610743815;
  1554.   end;
  1555.  
  1556. // *********************************************************************//
  1557. // Interface: Filter
  1558. // Flags:     (4416) Dual OleAutomation Dispatchable
  1559. // GUID:      {6A48111B-E531-11CF-A115-00A024158DAF}
  1560. // *********************************************************************//
  1561.   Filter = interface(IDispatch)
  1562.     ['{6A48111B-E531-11CF-A115-00A024158DAF}']
  1563.     function Get_Application_: IApplication; safecall;
  1564.     function Get_Description: WideString; safecall;
  1565.     function Get_Error: WideString; safecall;
  1566.     function Get_Extension(var Index: OleVariant): WideString; safecall;
  1567.     function Get_ExtensionCount: Integer; safecall;
  1568.     function Get_FilterString: WideString; safecall;
  1569.     function Get_Index: Integer; safecall;
  1570.     function Get_OpenFlat: IMSI_BOOL; safecall;
  1571.     function Get_OpenStream: IMSI_BOOL; safecall;
  1572.     function Get_Name: WideString; safecall;
  1573.     function Get_Parent: IDispatch; safecall;
  1574.     function Get_Priority: Smallint; safecall;
  1575.     procedure Set_Priority(prop: Smallint); safecall;
  1576.     function Get_SaveFlat: IMSI_BOOL; safecall;
  1577.     function Get_SaveStream: IMSI_BOOL; safecall;
  1578.     function Get__TableEntryID: Integer; safecall;
  1579.     function Check(var Filename: OleVariant; var IStreamContents: OleVariant): IMSI_BOOL; safecall;
  1580.     procedure Delete; safecall;
  1581.     function Open(const Dest: Graphics; var Filename: OleVariant; var IStreamContents: OleVariant): IMSI_BOOL; safecall;
  1582.     function OpenSetupDialog: IMSI_BOOL; safecall;
  1583.     function Save(const Source: Graphics; var Filename: OleVariant; var IStreamContents: OleVariant): IMSI_BOOL; safecall;
  1584.     function SaveSetupDialog: IMSI_BOOL; safecall;
  1585.     property Application_: IApplication read Get_Application_;
  1586.     property Description: WideString read Get_Description;
  1587.     property Error: WideString read Get_Error;
  1588.     property Extension[var Index: OleVariant]: WideString read Get_Extension;
  1589.     property ExtensionCount: Integer read Get_ExtensionCount;
  1590.     property FilterString: WideString read Get_FilterString;
  1591.     property Index: Integer read Get_Index;
  1592.     property OpenFlat: IMSI_BOOL read Get_OpenFlat;
  1593.     property OpenStream: IMSI_BOOL read Get_OpenStream;
  1594.     property Name: WideString read Get_Name;
  1595.     property Parent: IDispatch read Get_Parent;
  1596.     property Priority: Smallint read Get_Priority write Set_Priority;
  1597.     property SaveFlat: IMSI_BOOL read Get_SaveFlat;
  1598.     property SaveStream: IMSI_BOOL read Get_SaveStream;
  1599.     property _TableEntryID: Integer read Get__TableEntryID;
  1600.   end;
  1601.  
  1602. // *********************************************************************//
  1603. // DispIntf:  FilterDisp
  1604. // Flags:     (4416) Dual OleAutomation Dispatchable
  1605. // GUID:      {6A48111B-E531-11CF-A115-00A024158DAF}
  1606. // *********************************************************************//
  1607.   FilterDisp = dispinterface
  1608.     ['{6A48111B-E531-11CF-A115-00A024158DAF}']
  1609.     property Application_: IApplication readonly dispid 1610743808;
  1610.     property Description: WideString readonly dispid 1610743809;
  1611.     property Error: WideString readonly dispid 1610743810;
  1612.     property Extension[var Index: OleVariant]: WideString readonly dispid 1610743811;
  1613.     property ExtensionCount: Integer readonly dispid 1610743812;
  1614.     property FilterString: WideString readonly dispid 1610743813;
  1615.     property Index: Integer readonly dispid 1610743814;
  1616.     property OpenFlat: IMSI_BOOL readonly dispid 1610743815;
  1617.     property OpenStream: IMSI_BOOL readonly dispid 1610743816;
  1618.     property Name: WideString readonly dispid 1610743817;
  1619.     property Parent: IDispatch readonly dispid 1610743818;
  1620.     property Priority: Smallint dispid 1610743819;
  1621.     property SaveFlat: IMSI_BOOL readonly dispid 1610743821;
  1622.     property SaveStream: IMSI_BOOL readonly dispid 1610743822;
  1623.     property _TableEntryID: Integer readonly dispid 1610743823;
  1624.     function Check(var Filename: OleVariant; var IStreamContents: OleVariant): IMSI_BOOL; dispid 1610743824;
  1625.     procedure Delete; dispid 1610743825;
  1626.     function Open(const Dest: Graphics; var Filename: OleVariant; var IStreamContents: OleVariant): IMSI_BOOL; dispid 1610743826;
  1627.     function OpenSetupDialog: IMSI_BOOL; dispid 1610743827;
  1628.     function Save(const Source: Graphics; var Filename: OleVariant; var IStreamContents: OleVariant): IMSI_BOOL; dispid 1610743828;
  1629.     function SaveSetupDialog: IMSI_BOOL; dispid 1610743829;
  1630.   end;
  1631.  
  1632. // *********************************************************************//
  1633. // Interface: Graphics
  1634. // Flags:     (4416) Dual OleAutomation Dispatchable
  1635. // GUID:      {6A48110A-E531-11CF-A115-00A024158DAF}
  1636. // *********************************************************************//
  1637.   Graphics = interface(IDispatch)
  1638.     ['{6A48110A-E531-11CF-A115-00A024158DAF}']
  1639.     function Get_Application_: IApplication; safecall;
  1640.     function Get_Count: Integer; safecall;
  1641.     function Get_Drawing: IDrawing; safecall;
  1642.     function Get_Item(var Index: OleVariant): IGraphic; safecall;
  1643.     function Get_Parent: IDispatch; safecall;
  1644.     function Get__NewEnum: IUnknown; safecall;
  1645.     procedure ApplyStyle(const StyleToApply: Style); safecall;
  1646.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  1647.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  1648.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  1649.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  1650.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  1651.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); safecall;
  1652.     function AddHatch: IGraphic; safecall;
  1653.     function CreateStyle(const BasedOn: Style): Style; safecall;
  1654.     function AddObject(var ClassType: OleVariant; var Filename: OleVariant; 
  1655.                        var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  1656.                        var IconFileName: OleVariant; var IconIndex: OleVariant; 
  1657.                        var IconLabel: OleVariant; var X: OleVariant; var Y: OleVariant; 
  1658.                        var Z: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  1659.                        var Anchor: OleVariant): IGraphic; safecall;
  1660.     function AddLineTanArcPoint(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1661.                                 length: Double): IGraphic; safecall;
  1662.     function AddLineTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1663.     function AddLineTanFromArc(const TangentFrom: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1664.     function AddLineTan2Arcs(const Arc1: IGraphic; const Arc2: IGraphic; CounterClockwise: IMSI_BOOL): IGraphic; safecall;
  1665.     function AddDimensionLeader(X0: Double; Y0: Double; Z0: Double; const Text: WideString): IGraphic; safecall;
  1666.     function AddDimensionBaseline(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1667.     function AddDimensionContinuous(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1668.     function AddDoubleLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1669.                                  Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  1670.     function AddDoubleLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1671.                                   Z1: Double; Sides: Integer; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  1672.     function AddDoubleLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1673.                                     Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  1674.     function AddDoubleLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  1675.                                            Y1: Double; Z1: Double; Angle: Double; 
  1676.                                            var DoubleLineOffset: OleVariant): IGraphic; safecall;
  1677.     function AddDoubleLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1678.                                         X1: Double; Y1: Double; Z1: Double; 
  1679.                                         var DoubleLineOffset: OleVariant): IGraphic; safecall;
  1680.     function AddDoubleLineMultiline(X0: Double; Y0: Double; Z0: Double; 
  1681.                                     var DoubleLineOffset: OleVariant): IGraphic; safecall;
  1682.     function AddDoubleLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double; 
  1683.                                            var DoubleLineOffset: OleVariant): IGraphic; safecall;
  1684.     function AddDoubleLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1685.                                    var DoubleLineOffset: OleVariant): IGraphic; safecall;
  1686.     function AddCircleTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1687.                                X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  1688.     function AddCircleTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1689.                                 X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  1690.     function AddCircleTan3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic): IGraphic; safecall;
  1691.     function AddArcTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1692.                             X1: Double; Y1: Double; Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  1693.     function AddArcTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1694.                              X1: Double; Y1: Double; Z1: Double; StartAngle: Double; 
  1695.                              EndAngle: Double): IGraphic; safecall;
  1696.     function AddArcTanTo3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic; 
  1697.                               StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  1698.     function AddDimensionHorizontal(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1699.                                     Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  1700.     function AddDimensionVertical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1701.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  1702.     function AddDimensionParallel(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1703.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  1704.     function AddDimensionRotated(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1705.                                  Z1: Double; X2: Double; Y2: Double; Z2: Double; X3: Double; 
  1706.                                  Y3: Double; Z3: Double; X4: Double; Y4: Double; Z4: Double): IGraphic; safecall;
  1707.     function AddDimensionDatum(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1708.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  1709.     function AddDimensionAngular(const Line1: IGraphic; const Line2: IGraphic; X0: Double; 
  1710.                                  Y0: Double; Z0: Double): IGraphic; safecall;
  1711.     function AddDimensionRadius(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1712.     function AddDimensionDiameter(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1713.     function Add(var GraphicType: OleVariant; var RegenMethod: OleVariant; var Inherit: OleVariant; 
  1714.                  var Style: OleVariant; var Before: OleVariant; var After: OleVariant): IGraphic; safecall;
  1715.     procedure AddGraphic(const Graphic: IGraphic; var Before: OleVariant; var After: OleVariant); safecall;
  1716.     function CalcBoundingBox(var Transform: OleVariant): BoundingBox; safecall;
  1717.     procedure Clear(var CosmeticOnly: OleVariant); safecall;
  1718.     procedure ClearConstruction; safecall;
  1719.     procedure Copy; safecall;
  1720.     procedure Cut; safecall;
  1721.     procedure Draw(var View: OleVariant); safecall;
  1722.     function Remove(var Index: OleVariant): IGraphic; safecall;
  1723.     procedure Select; safecall;
  1724.     procedure Unselect; safecall;
  1725.     function AddConstructionAngularLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1726.                                         Z1: Double): IGraphic; safecall;
  1727.     function AddConstructionHorizontalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1728.     function AddConstructionVerticalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1729.     function AddConstructionCenterAndPointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  1730.                                                  Y1: Double; Z1: Double): IGraphic; safecall;
  1731.     function AddConstructionDoublePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  1732.                                               Y1: Double; Z1: Double): IGraphic; safecall;
  1733.     function AddConstructionTriplePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  1734.                                               Y1: Double; Z1: Double; X2: Double; Y2: Double; 
  1735.                                               Z2: Double): IGraphic; safecall;
  1736.     function AddDot(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1737.     function AddStar(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1738.     function AddSquare(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1739.     function AddCross(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1740.     function AddCircle(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1741.     function AddLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  1742.     function AddLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  1743.                             nsides: Integer): IGraphic; safecall;
  1744.     function AddLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  1745.     function AddLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1746.                                      Z1: Double; Angle: Double): IGraphic; safecall;
  1747.     function AddLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1748.                                   X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  1749.     function AddLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1750.     function AddLineMultiline(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1751.     function AddLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1752.     function AddCurveBezier(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1753.     function AddCurveSpline(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  1754.     function AddCircleCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1755.                                      Z1: Double): IGraphic; safecall;
  1756.     function AddCircleDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1757.                                   Z1: Double): IGraphic; safecall;
  1758.     function AddCircleTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1759.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  1760.     function AddEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  1761.     function AddEllipseRotatedEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1762.                                       Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  1763.     function AddEllipseFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1764.                                   Z1: Double; XToYRatio: Double): IGraphic; safecall;
  1765.     function AddArcCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1766.                                   Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  1767.     function AddArcDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1768.                                Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  1769.     function AddArcTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1770.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  1771.     function AddArcElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1772.                               Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  1773.     function AddArcRotatedElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1774.                                      Z1: Double; X2: Double; Y2: Double; Z2: Double; 
  1775.                                      StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  1776.     function AddArcEllipticalFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1777.                                         Z1: Double; XToYRatio: Double; StartAngle: Double; 
  1778.                                         EndAngle: Double): IGraphic; safecall;
  1779.     function AddText(const Text: WideString; X0: Double; Y0: Double; Z0: Double; Height: Double; 
  1780.                      var Angle: OleVariant; var Width: OleVariant; var Offset: OleVariant; 
  1781.                      var Justification: OleVariant): IGraphic; safecall;
  1782.     function CreateBlock(const Name: WideString; var XRef: OleVariant; var YRef: OleVariant; 
  1783.                          var ZRef: OleVariant; var CopyGraphics: OleVariant; 
  1784.                          var InsertBlock: OleVariant; var Insert: OleVariant): Block; safecall;
  1785.     function AddBlockInsertion(var Block: OleVariant; var X0: OleVariant; var Y0: OleVariant; 
  1786.                                var Z0: OleVariant; var XScale: OleVariant; var YScale: OleVariant; 
  1787.                                var ZScale: OleVariant; var Angle: OleVariant): IGraphic; safecall;
  1788.     function AddGroup(var Name: OleVariant; var Copy: OleVariant): IGraphic; safecall;
  1789.     function Explode: GraphicSet; safecall;
  1790.     function LinearCopyAbsolute(X: Double; Y: Double; Z: Double; Copies: Integer; 
  1791.                                 var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  1792.                                 var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  1793.     function LinearCopyRelative(X: Double; Y: Double; Z: Double; Copies: Integer; 
  1794.                                 var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  1795.     function LinearCopyAngle(length: Double; Angle: Double; Copies: Integer; var Fit: OleVariant; 
  1796.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  1797.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  1798.     function RadialCopyAbsolute(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1799.                                 Z1: Double; Copies: Integer; var Fit: OleVariant; 
  1800.                                 var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  1801.                                 var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  1802.     function RadialCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; RotationAngle: Double; 
  1803.                              Copies: Integer; var Fit: OleVariant; var XRef: OleVariant; 
  1804.                              var YRef: OleVariant; var ZRef: OleVariant; var Workplane: OleVariant; 
  1805.                              var Matrix: OleVariant): GraphicSet; safecall;
  1806.     function ArrayCopyAbsolute(X: Double; Y: Double; Z: Double; Rows: Integer; Columns: Integer; 
  1807.                                var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  1808.                                var ZRef: OleVariant; var Workplane: OleVariant; 
  1809.                                var Matrix: OleVariant): GraphicSet; safecall;
  1810.     function ArrayCopyRelative(U: Double; V: Double; Rows: Integer; Columns: Integer; 
  1811.                                var Fit: OleVariant; var Workplane: OleVariant; 
  1812.                                var Matrix: OleVariant): GraphicSet; safecall;
  1813.     function MirrorCopyLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  1814.                             var Copy: OleVariant; var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  1815.     function MirrorCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; var Copy: OleVariant; 
  1816.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  1817.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  1818.     function Scale(XScale: Double; YScale: Double; ZScale: Double; var XRef: OleVariant; 
  1819.                    var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  1820.     function RotateAxis(Angle: Double; var XAxis: OleVariant; var YAxis: OleVariant; 
  1821.                         var ZAxis: OleVariant; var X: OleVariant; var Y: OleVariant; 
  1822.                         var Z: OleVariant): IMatrix; safecall;
  1823.     function RotateAbsolute(var XTo: OleVariant; var YTo: OleVariant; var ZTo: OleVariant; 
  1824.                             var XFrom: OleVariant; var YFrom: OleVariant; var ZFrom: OleVariant; 
  1825.                             var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  1826.     function MoveAbsolute(X: Double; Y: Double; Z: Double; var XRef: OleVariant; 
  1827.                           var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  1828.     function MoveRelative(X: Double; Y: Double; Z: Double): IMatrix; safecall;
  1829.     procedure Transform(const Transform: IMatrix); safecall;
  1830.     procedure Align(AlignType: ImsiAlignType); safecall;
  1831.     procedure AlignAlongLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double); safecall;
  1832.     function _FindIndex(g: Integer): Integer; safecall;
  1833.     function QuerySet(const Query: WideString): GraphicSet; safecall;
  1834.     function AddPolys(Type_: ImsiPolyType; var Coords: OleVariant): GraphicSet; safecall;
  1835.     procedure CreateDragOutline(var Coords: OleVariant); safecall;
  1836.     function AddPolylines(NumberOfPolylines: Integer; var Coords: OleVariant; Closed: IMSI_BOOL): GraphicSet; safecall;
  1837.     function GraphicFromID(ID: Integer): IGraphic; safecall;
  1838.     function AddAttributeDefinition(const Tag: WideString; X0: Double; Y0: Double; Z0: Double; 
  1839.                                     Height: Double; var Angle: OleVariant; var Width: OleVariant; 
  1840.                                     var Offset: OleVariant; var Justification: OleVariant; 
  1841.                                     var AttFlags: OleVariant; var Default: OleVariant; 
  1842.                                     var Prompt: OleVariant): IGraphic; safecall;
  1843.     property Application_: IApplication read Get_Application_;
  1844.     property Count: Integer read Get_Count;
  1845.     property Drawing: IDrawing read Get_Drawing;
  1846.     property Item[var Index: OleVariant]: IGraphic read Get_Item;
  1847.     property Parent: IDispatch read Get_Parent;
  1848.     property _NewEnum: IUnknown read Get__NewEnum;
  1849.   end;
  1850.  
  1851. // *********************************************************************//
  1852. // DispIntf:  GraphicsDisp
  1853. // Flags:     (4416) Dual OleAutomation Dispatchable
  1854. // GUID:      {6A48110A-E531-11CF-A115-00A024158DAF}
  1855. // *********************************************************************//
  1856.   GraphicsDisp = dispinterface
  1857.     ['{6A48110A-E531-11CF-A115-00A024158DAF}']
  1858.     property Application_: IApplication readonly dispid 1610743808;
  1859.     property Count: Integer readonly dispid 1610743809;
  1860.     property Drawing: IDrawing readonly dispid 1610743810;
  1861.     property Item[var Index: OleVariant]: IGraphic readonly dispid 0; default;
  1862.     property Parent: IDispatch readonly dispid 1610743812;
  1863.     property _NewEnum: IUnknown readonly dispid -4;
  1864.     procedure ApplyStyle(const StyleToApply: Style); dispid 1610743814;
  1865.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  1866.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  1867.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  1868.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  1869.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  1870.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); dispid 1610743815;
  1871.     function AddHatch: IGraphic; dispid 1610743816;
  1872.     function CreateStyle(const BasedOn: Style): Style; dispid 1610743817;
  1873.     function AddObject(var ClassType: OleVariant; var Filename: OleVariant; 
  1874.                        var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  1875.                        var IconFileName: OleVariant; var IconIndex: OleVariant; 
  1876.                        var IconLabel: OleVariant; var X: OleVariant; var Y: OleVariant; 
  1877.                        var Z: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  1878.                        var Anchor: OleVariant): IGraphic; dispid 1610743818;
  1879.     function AddLineTanArcPoint(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1880.                                 length: Double): IGraphic; dispid 1610743819;
  1881.     function AddLineTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743820;
  1882.     function AddLineTanFromArc(const TangentFrom: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743821;
  1883.     function AddLineTan2Arcs(const Arc1: IGraphic; const Arc2: IGraphic; CounterClockwise: IMSI_BOOL): IGraphic; dispid 1610743822;
  1884.     function AddDimensionLeader(X0: Double; Y0: Double; Z0: Double; const Text: WideString): IGraphic; dispid 1610743823;
  1885.     function AddDimensionBaseline(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743824;
  1886.     function AddDimensionContinuous(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743825;
  1887.     function AddDoubleLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1888.                                  Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743826;
  1889.     function AddDoubleLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1890.                                   Z1: Double; Sides: Integer; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743827;
  1891.     function AddDoubleLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1892.                                     Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743828;
  1893.     function AddDoubleLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  1894.                                            Y1: Double; Z1: Double; Angle: Double; 
  1895.                                            var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743829;
  1896.     function AddDoubleLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1897.                                         X1: Double; Y1: Double; Z1: Double; 
  1898.                                         var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743830;
  1899.     function AddDoubleLineMultiline(X0: Double; Y0: Double; Z0: Double; 
  1900.                                     var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743831;
  1901.     function AddDoubleLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double; 
  1902.                                            var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743832;
  1903.     function AddDoubleLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1904.                                    var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743833;
  1905.     function AddCircleTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1906.                                X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743834;
  1907.     function AddCircleTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1908.                                 X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743835;
  1909.     function AddCircleTan3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic): IGraphic; dispid 1610743836;
  1910.     function AddArcTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1911.                             X1: Double; Y1: Double; Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743837;
  1912.     function AddArcTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1913.                              X1: Double; Y1: Double; Z1: Double; StartAngle: Double; 
  1914.                              EndAngle: Double): IGraphic; dispid 1610743838;
  1915.     function AddArcTanTo3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic; 
  1916.                               StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743839;
  1917.     function AddDimensionHorizontal(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1918.                                     Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743840;
  1919.     function AddDimensionVertical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1920.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743841;
  1921.     function AddDimensionParallel(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1922.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743842;
  1923.     function AddDimensionRotated(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1924.                                  Z1: Double; X2: Double; Y2: Double; Z2: Double; X3: Double; 
  1925.                                  Y3: Double; Z3: Double; X4: Double; Y4: Double; Z4: Double): IGraphic; dispid 1610743843;
  1926.     function AddDimensionDatum(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1927.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743844;
  1928.     function AddDimensionAngular(const Line1: IGraphic; const Line2: IGraphic; X0: Double; 
  1929.                                  Y0: Double; Z0: Double): IGraphic; dispid 1610743845;
  1930.     function AddDimensionRadius(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743846;
  1931.     function AddDimensionDiameter(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743847;
  1932.     function Add(var GraphicType: OleVariant; var RegenMethod: OleVariant; var Inherit: OleVariant; 
  1933.                  var Style: OleVariant; var Before: OleVariant; var After: OleVariant): IGraphic; dispid 1610743848;
  1934.     procedure AddGraphic(const Graphic: IGraphic; var Before: OleVariant; var After: OleVariant); dispid 1610743849;
  1935.     function CalcBoundingBox(var Transform: OleVariant): BoundingBox; dispid 1610743850;
  1936.     procedure Clear(var CosmeticOnly: OleVariant); dispid 1610743851;
  1937.     procedure ClearConstruction; dispid 1610743852;
  1938.     procedure Copy; dispid 1610743853;
  1939.     procedure Cut; dispid 1610743854;
  1940.     procedure Draw(var View: OleVariant); dispid 1610743855;
  1941.     function Remove(var Index: OleVariant): IGraphic; dispid 1610743856;
  1942.     procedure Select; dispid 1610743857;
  1943.     procedure Unselect; dispid 1610743858;
  1944.     function AddConstructionAngularLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1945.                                         Z1: Double): IGraphic; dispid 1610743859;
  1946.     function AddConstructionHorizontalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743860;
  1947.     function AddConstructionVerticalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743861;
  1948.     function AddConstructionCenterAndPointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  1949.                                                  Y1: Double; Z1: Double): IGraphic; dispid 1610743862;
  1950.     function AddConstructionDoublePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  1951.                                               Y1: Double; Z1: Double): IGraphic; dispid 1610743863;
  1952.     function AddConstructionTriplePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  1953.                                               Y1: Double; Z1: Double; X2: Double; Y2: Double; 
  1954.                                               Z2: Double): IGraphic; dispid 1610743864;
  1955.     function AddDot(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743865;
  1956.     function AddStar(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743866;
  1957.     function AddSquare(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743867;
  1958.     function AddCross(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743868;
  1959.     function AddCircle(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743869;
  1960.     function AddLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743870;
  1961.     function AddLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  1962.                             nsides: Integer): IGraphic; dispid 1610743871;
  1963.     function AddLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743872;
  1964.     function AddLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1965.                                      Z1: Double; Angle: Double): IGraphic; dispid 1610743873;
  1966.     function AddLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  1967.                                   X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743874;
  1968.     function AddLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743875;
  1969.     function AddLineMultiline(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743876;
  1970.     function AddLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743877;
  1971.     function AddCurveBezier(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743878;
  1972.     function AddCurveSpline(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743879;
  1973.     function AddCircleCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1974.                                      Z1: Double): IGraphic; dispid 1610743880;
  1975.     function AddCircleDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1976.                                   Z1: Double): IGraphic; dispid 1610743881;
  1977.     function AddCircleTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1978.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743882;
  1979.     function AddEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743883;
  1980.     function AddEllipseRotatedEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1981.                                       Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743884;
  1982.     function AddEllipseFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1983.                                   Z1: Double; XToYRatio: Double): IGraphic; dispid 1610743885;
  1984.     function AddArcCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1985.                                   Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743886;
  1986.     function AddArcDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1987.                                Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743887;
  1988.     function AddArcTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1989.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743888;
  1990.     function AddArcElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1991.                               Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743889;
  1992.     function AddArcRotatedElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1993.                                      Z1: Double; X2: Double; Y2: Double; Z2: Double; 
  1994.                                      StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743890;
  1995.     function AddArcEllipticalFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  1996.                                         Z1: Double; XToYRatio: Double; StartAngle: Double; 
  1997.                                         EndAngle: Double): IGraphic; dispid 1610743891;
  1998.     function AddText(const Text: WideString; X0: Double; Y0: Double; Z0: Double; Height: Double; 
  1999.                      var Angle: OleVariant; var Width: OleVariant; var Offset: OleVariant; 
  2000.                      var Justification: OleVariant): IGraphic; dispid 1610743892;
  2001.     function CreateBlock(const Name: WideString; var XRef: OleVariant; var YRef: OleVariant; 
  2002.                          var ZRef: OleVariant; var CopyGraphics: OleVariant; 
  2003.                          var InsertBlock: OleVariant; var Insert: OleVariant): Block; dispid 1610743893;
  2004.     function AddBlockInsertion(var Block: OleVariant; var X0: OleVariant; var Y0: OleVariant; 
  2005.                                var Z0: OleVariant; var XScale: OleVariant; var YScale: OleVariant; 
  2006.                                var ZScale: OleVariant; var Angle: OleVariant): IGraphic; dispid 1610743894;
  2007.     function AddGroup(var Name: OleVariant; var Copy: OleVariant): IGraphic; dispid 1610743895;
  2008.     function Explode: GraphicSet; dispid 1610743896;
  2009.     function LinearCopyAbsolute(X: Double; Y: Double; Z: Double; Copies: Integer; 
  2010.                                 var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  2011.                                 var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743897;
  2012.     function LinearCopyRelative(X: Double; Y: Double; Z: Double; Copies: Integer; 
  2013.                                 var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743898;
  2014.     function LinearCopyAngle(length: Double; Angle: Double; Copies: Integer; var Fit: OleVariant; 
  2015.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2016.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743899;
  2017.     function RadialCopyAbsolute(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2018.                                 Z1: Double; Copies: Integer; var Fit: OleVariant; 
  2019.                                 var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2020.                                 var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743900;
  2021.     function RadialCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; RotationAngle: Double; 
  2022.                              Copies: Integer; var Fit: OleVariant; var XRef: OleVariant; 
  2023.                              var YRef: OleVariant; var ZRef: OleVariant; var Workplane: OleVariant; 
  2024.                              var Matrix: OleVariant): GraphicSet; dispid 1610743901;
  2025.     function ArrayCopyAbsolute(X: Double; Y: Double; Z: Double; Rows: Integer; Columns: Integer; 
  2026.                                var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  2027.                                var ZRef: OleVariant; var Workplane: OleVariant; 
  2028.                                var Matrix: OleVariant): GraphicSet; dispid 1610743902;
  2029.     function ArrayCopyRelative(U: Double; V: Double; Rows: Integer; Columns: Integer; 
  2030.                                var Fit: OleVariant; var Workplane: OleVariant; 
  2031.                                var Matrix: OleVariant): GraphicSet; dispid 1610743903;
  2032.     function MirrorCopyLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  2033.                             var Copy: OleVariant; var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743904;
  2034.     function MirrorCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; var Copy: OleVariant; 
  2035.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2036.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743905;
  2037.     function Scale(XScale: Double; YScale: Double; ZScale: Double; var XRef: OleVariant; 
  2038.                    var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743906;
  2039.     function RotateAxis(Angle: Double; var XAxis: OleVariant; var YAxis: OleVariant; 
  2040.                         var ZAxis: OleVariant; var X: OleVariant; var Y: OleVariant; 
  2041.                         var Z: OleVariant): IMatrix; dispid 1610743907;
  2042.     function RotateAbsolute(var XTo: OleVariant; var YTo: OleVariant; var ZTo: OleVariant; 
  2043.                             var XFrom: OleVariant; var YFrom: OleVariant; var ZFrom: OleVariant; 
  2044.                             var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743908;
  2045.     function MoveAbsolute(X: Double; Y: Double; Z: Double; var XRef: OleVariant; 
  2046.                           var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743909;
  2047.     function MoveRelative(X: Double; Y: Double; Z: Double): IMatrix; dispid 1610743910;
  2048.     procedure Transform(const Transform: IMatrix); dispid 1610743911;
  2049.     procedure Align(AlignType: ImsiAlignType); dispid 1610743912;
  2050.     procedure AlignAlongLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double); dispid 1610743913;
  2051.     function _FindIndex(g: Integer): Integer; dispid 1610743914;
  2052.     function QuerySet(const Query: WideString): GraphicSet; dispid 1610743915;
  2053.     function AddPolys(Type_: ImsiPolyType; var Coords: OleVariant): GraphicSet; dispid 1610743916;
  2054.     procedure CreateDragOutline(var Coords: OleVariant); dispid 1610743917;
  2055.     function AddPolylines(NumberOfPolylines: Integer; var Coords: OleVariant; Closed: IMSI_BOOL): GraphicSet; dispid 1610743918;
  2056.     function GraphicFromID(ID: Integer): IGraphic; dispid 1610743919;
  2057.     function AddAttributeDefinition(const Tag: WideString; X0: Double; Y0: Double; Z0: Double; 
  2058.                                     Height: Double; var Angle: OleVariant; var Width: OleVariant; 
  2059.                                     var Offset: OleVariant; var Justification: OleVariant; 
  2060.                                     var AttFlags: OleVariant; var Default: OleVariant; 
  2061.                                     var Prompt: OleVariant): IGraphic; dispid 1610743920;
  2062.   end;
  2063.  
  2064. // *********************************************************************//
  2065. // Interface: IGraphic
  2066. // Flags:     (4416) Dual OleAutomation Dispatchable
  2067. // GUID:      {6A481109-E531-11CF-A115-00A024158DAF}
  2068. // *********************************************************************//
  2069.   IGraphic = interface(IDispatch)
  2070.     ['{6A481109-E531-11CF-A115-00A024158DAF}']
  2071.     function Get_Application_: IApplication; safecall;
  2072.     function Get_BrushStyle: BrushStyle; safecall;
  2073.     procedure Set_BrushStyle(var prop: OleVariant); safecall;
  2074.     function Get_Builtin: IMSI_BOOL; safecall;
  2075.     function Get_Callbacks: GraphicCallbacks; safecall;
  2076.     function Get_Closed: IMSI_BOOL; safecall;
  2077.     procedure Set_Closed(prop: IMSI_BOOL); safecall;
  2078.     function Get_Cosmetic: IMSI_BOOL; safecall;
  2079.     procedure Set_Cosmetic(prop: IMSI_BOOL); safecall;
  2080.     function Get_Deleted: IMSI_BOOL; safecall;
  2081.     procedure Set_Deleted(prop: IMSI_BOOL); safecall;
  2082.     function Get_Drawing: IDrawing; safecall;
  2083.     function Get_Editable: IMSI_BOOL; safecall;
  2084.     procedure Set_Editable(prop: IMSI_BOOL); safecall;
  2085.     function Get_Graphics: Graphics; safecall;
  2086.     function Get_ID: Integer; safecall;
  2087.     procedure Set_ID(prop: Integer); safecall;
  2088.     function Get_Index: Integer; safecall;
  2089.     function Get_Layer: Layer; safecall;
  2090.     procedure Set_Layer(var prop: OleVariant); safecall;
  2091.     function Get_LineStyle: LineStyle; safecall;
  2092.     procedure Set_LineStyle(var prop: OleVariant); safecall;
  2093.     function Get_Name: WideString; safecall;
  2094.     procedure Set_Name(const prop: WideString); safecall;
  2095.     function Get_Nodes: Vertices; safecall;
  2096.     function Get_Parent: IDispatch; safecall;
  2097.     function Get_Properties: Properties; safecall;
  2098.     function Get_RegenType: RegenMethod; safecall;
  2099.     procedure Set_RegenType(var prop: OleVariant); safecall;
  2100.     function Get_Root: IMSI_BOOL; safecall;
  2101.     procedure Set_Root(prop: IMSI_BOOL); safecall;
  2102.     function Get_Style: Style; safecall;
  2103.     procedure Set_Style(var prop: OleVariant); safecall;
  2104.     function Get_Type_: WideString; safecall;
  2105.     function Get_Unbounded: IMSI_BOOL; safecall;
  2106.     procedure Set_Unbounded(prop: IMSI_BOOL); safecall;
  2107.     function Get_Vertices: Vertices; safecall;
  2108.     function Get_Visible: IMSI_BOOL; safecall;
  2109.     procedure Set_Visible(prop: IMSI_BOOL); safecall;
  2110.     function Get_ZOrder: Integer; safecall;
  2111.     function Get__Handle: Integer; safecall;
  2112.     procedure ArcSet(var XCenter: OleVariant; var YCenter: OleVariant; var ZCenter: OleVariant; 
  2113.                      var MajorAxis: OleVariant; var MinorAxis: OleVariant; 
  2114.                      var StartAngle: OleVariant; var EndAngle: OleVariant; 
  2115.                      var RotationAngle: OleVariant); safecall;
  2116.     function CalcBoundingBox(var Transform: OleVariant): BoundingBox; safecall;
  2117.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  2118.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  2119.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
  2120.                             var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
  2121.                             var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
  2122.                             var CustomDictionary10: OleVariant); safecall;
  2123.     procedure Close; safecall;
  2124.     procedure Draw(var View: OleVariant); safecall;
  2125.     procedure ConvertType(var GraphicType: OleVariant; var RegenMethod: OleVariant); safecall;
  2126.     procedure Delete; safecall;
  2127.     function Duplicate: IGraphic; safecall;
  2128.     function GetSubjectLink(var VertexIndex: OleVariant; var LinkIndex: OleVariant): IGraphic; safecall;
  2129.     function RegenLock: Integer; safecall;
  2130.     procedure RegenUnlock(var LockCount: OleVariant); safecall;
  2131.     procedure Select; safecall;
  2132.     procedure TextSet(var Text: OleVariant; var X: OleVariant; var Y: OleVariant; 
  2133.                       var Z: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  2134.                       var Angle: OleVariant); safecall;
  2135.     procedure Unselect; safecall;
  2136.     function Explode: GraphicSet; safecall;
  2137.     function LinearCopyAbsolute(X: Double; Y: Double; Z: Double; Copies: Integer; 
  2138.                                 var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  2139.                                 var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2140.     function LinearCopyRelative(X: Double; Y: Double; Z: Double; Copies: Integer; 
  2141.                                 var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2142.     function LinearCopyAngle(length: Double; Angle: Double; Copies: Integer; var Fit: OleVariant; 
  2143.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2144.                              var Matrix: OleVariant): GraphicSet; safecall;
  2145.     function RadialCopyAbsolute(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2146.                                 Z1: Double; Copies: Integer; var Fit: OleVariant; 
  2147.                                 var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2148.                                 var Matrix: OleVariant): GraphicSet; safecall;
  2149.     function RadialCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; RotationAngle: Double; 
  2150.                              Copies: Integer; var Fit: OleVariant; var XRef: OleVariant; 
  2151.                              var YRef: OleVariant; var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2152.     function ArrayCopyAbsolute(X: Double; Y: Double; Z: Double; Rows: Integer; Columns: Integer; 
  2153.                                var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  2154.                                var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2155.     function ArrayCopyRelative(X: Double; Y: Double; Rows: Integer; Columns: Integer; 
  2156.                                var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2157.     function MirrorCopyLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  2158.                             var Copy: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2159.     function MirrorCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; var Copy: OleVariant; 
  2160.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2161.                              var Matrix: OleVariant): GraphicSet; safecall;
  2162.     function Scale(XScale: Double; YScale: Double; ZScale: Double; var XRef: OleVariant; 
  2163.                    var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  2164.     function RotateAxis(Angle: Double; var XAxis: OleVariant; var YAxis: OleVariant; 
  2165.                         var ZAxis: OleVariant; var X: OleVariant; var Y: OleVariant; 
  2166.                         var Z: OleVariant): IMatrix; safecall;
  2167.     function RotateAbsolute(var XTo: OleVariant; var YTo: OleVariant; var ZTo: OleVariant; 
  2168.                             var XFrom: OleVariant; var YFrom: OleVariant; var ZFrom: OleVariant; 
  2169.                             var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  2170.     function MoveAbsolute(X: Double; Y: Double; Z: Double; var XRef: OleVariant; 
  2171.                           var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  2172.     function MoveRelative(X: Double; Y: Double; Z: Double): IMatrix; safecall;
  2173.     procedure Transform(const Transform: IMatrix); safecall;
  2174.     procedure BringToFront; safecall;
  2175.     procedure SendToBack; safecall;
  2176.     function Get_TypeByValue: ImsiGraphicType; safecall;
  2177.     function GetDistance(X: Double; Y: Double; Z: Double; var ClosestVertex: OleVariant; 
  2178.                          var ClosestChild: OleVariant): Double; safecall;
  2179.     procedure GetFaceData(var VertexArray: OleVariant; var VertexIndices: OleVariant; 
  2180.                           var EdgeFlags: OleVariant); safecall;
  2181.     procedure CreateDragOutline(var Coords: OleVariant); safecall;
  2182.     function Get_Attributes: Properties; safecall;
  2183.     function Get_Block: Block; safecall;
  2184.     procedure GetArcData(var varArcData: OleVariant); safecall;
  2185.     procedure Update; safecall;
  2186.     procedure Set_Block(const prop: Block); safecall;
  2187.     function Get_UCS: IMatrix; safecall;
  2188.     property Application_: IApplication read Get_Application_;
  2189.     property Builtin: IMSI_BOOL read Get_Builtin;
  2190.     property Callbacks: GraphicCallbacks read Get_Callbacks;
  2191.     property Closed: IMSI_BOOL read Get_Closed write Set_Closed;
  2192.     property Cosmetic: IMSI_BOOL read Get_Cosmetic write Set_Cosmetic;
  2193.     property Deleted: IMSI_BOOL read Get_Deleted write Set_Deleted;
  2194.     property Drawing: IDrawing read Get_Drawing;
  2195.     property Editable: IMSI_BOOL read Get_Editable write Set_Editable;
  2196.     property Graphics: Graphics read Get_Graphics;
  2197.     property ID: Integer read Get_ID write Set_ID;
  2198.     property Index: Integer read Get_Index;
  2199.     property Name: WideString read Get_Name write Set_Name;
  2200.     property Nodes: Vertices read Get_Nodes;
  2201.     property Parent: IDispatch read Get_Parent;
  2202.     property Properties: Properties read Get_Properties;
  2203.     property Root: IMSI_BOOL read Get_Root write Set_Root;
  2204.     property Type_: WideString read Get_Type_;
  2205.     property Unbounded: IMSI_BOOL read Get_Unbounded write Set_Unbounded;
  2206.     property Vertices: Vertices read Get_Vertices;
  2207.     property Visible: IMSI_BOOL read Get_Visible write Set_Visible;
  2208.     property ZOrder: Integer read Get_ZOrder;
  2209.     property _Handle: Integer read Get__Handle;
  2210.     property TypeByValue: ImsiGraphicType read Get_TypeByValue;
  2211.     property Attributes: Properties read Get_Attributes;
  2212.     property Block: Block read Get_Block write Set_Block;
  2213.     property UCS: IMatrix read Get_UCS;
  2214.   end;
  2215.  
  2216. // *********************************************************************//
  2217. // DispIntf:  IGraphicDisp
  2218. // Flags:     (4416) Dual OleAutomation Dispatchable
  2219. // GUID:      {6A481109-E531-11CF-A115-00A024158DAF}
  2220. // *********************************************************************//
  2221.   IGraphicDisp = dispinterface
  2222.     ['{6A481109-E531-11CF-A115-00A024158DAF}']
  2223.     property Application_: IApplication readonly dispid 1610743808;
  2224.     function BrushStyle: BrushStyle; dispid 1610743809;
  2225.     property Builtin: IMSI_BOOL readonly dispid 1610743811;
  2226.     property Callbacks: GraphicCallbacks readonly dispid 1610743812;
  2227.     property Closed: IMSI_BOOL dispid 1610743813;
  2228.     property Cosmetic: IMSI_BOOL dispid 1610743815;
  2229.     property Deleted: IMSI_BOOL dispid 1610743817;
  2230.     property Drawing: IDrawing readonly dispid 1610743819;
  2231.     property Editable: IMSI_BOOL dispid 1610743820;
  2232.     property Graphics: Graphics readonly dispid 1610743822;
  2233.     property ID: Integer dispid 1610743823;
  2234.     property Index: Integer readonly dispid 1610743825;
  2235.     function Layer: Layer; dispid 1610743826;
  2236.     function LineStyle: LineStyle; dispid 1610743828;
  2237.     property Name: WideString dispid 0;
  2238.     property Nodes: Vertices readonly dispid 1610743832;
  2239.     property Parent: IDispatch readonly dispid 1610743833;
  2240.     property Properties: Properties readonly dispid 1610743834;
  2241.     function RegenType: RegenMethod; dispid 1610743835;
  2242.     property Root: IMSI_BOOL dispid 1610743837;
  2243.     function Style: Style; dispid 1610743839;
  2244.     property Type_: WideString readonly dispid 1610743841;
  2245.     property Unbounded: IMSI_BOOL dispid 1610743842;
  2246.     property Vertices: Vertices readonly dispid 1610743844;
  2247.     property Visible: IMSI_BOOL dispid 1610743845;
  2248.     property ZOrder: Integer readonly dispid 1610743847;
  2249.     property _Handle: Integer readonly dispid 1610743848;
  2250.     procedure ArcSet(var XCenter: OleVariant; var YCenter: OleVariant; var ZCenter: OleVariant; 
  2251.                      var MajorAxis: OleVariant; var MinorAxis: OleVariant; 
  2252.                      var StartAngle: OleVariant; var EndAngle: OleVariant; 
  2253.                      var RotationAngle: OleVariant); dispid 1610743849;
  2254.     function CalcBoundingBox(var Transform: OleVariant): BoundingBox; dispid 1610743850;
  2255.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  2256.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  2257.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
  2258.                             var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
  2259.                             var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
  2260.                             var CustomDictionary10: OleVariant); dispid 1610743851;
  2261.     procedure Close; dispid 1610743852;
  2262.     procedure Draw(var View: OleVariant); dispid 1610743853;
  2263.     procedure ConvertType(var GraphicType: OleVariant; var RegenMethod: OleVariant); dispid 1610743854;
  2264.     procedure Delete; dispid 1610743855;
  2265.     function Duplicate: IGraphic; dispid 1610743856;
  2266.     function GetSubjectLink(var VertexIndex: OleVariant; var LinkIndex: OleVariant): IGraphic; dispid 1610743857;
  2267.     function RegenLock: Integer; dispid 1610743858;
  2268.     procedure RegenUnlock(var LockCount: OleVariant); dispid 1610743859;
  2269.     procedure Select; dispid 1610743860;
  2270.     procedure TextSet(var Text: OleVariant; var X: OleVariant; var Y: OleVariant; 
  2271.                       var Z: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  2272.                       var Angle: OleVariant); dispid 1610743861;
  2273.     procedure Unselect; dispid 1610743862;
  2274.     function Explode: GraphicSet; dispid 1610743863;
  2275.     function LinearCopyAbsolute(X: Double; Y: Double; Z: Double; Copies: Integer; 
  2276.                                 var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  2277.                                 var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743864;
  2278.     function LinearCopyRelative(X: Double; Y: Double; Z: Double; Copies: Integer; 
  2279.                                 var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743865;
  2280.     function LinearCopyAngle(length: Double; Angle: Double; Copies: Integer; var Fit: OleVariant; 
  2281.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2282.                              var Matrix: OleVariant): GraphicSet; dispid 1610743866;
  2283.     function RadialCopyAbsolute(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2284.                                 Z1: Double; Copies: Integer; var Fit: OleVariant; 
  2285.                                 var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2286.                                 var Matrix: OleVariant): GraphicSet; dispid 1610743867;
  2287.     function RadialCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; RotationAngle: Double; 
  2288.                              Copies: Integer; var Fit: OleVariant; var XRef: OleVariant; 
  2289.                              var YRef: OleVariant; var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743868;
  2290.     function ArrayCopyAbsolute(X: Double; Y: Double; Z: Double; Rows: Integer; Columns: Integer; 
  2291.                                var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  2292.                                var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743869;
  2293.     function ArrayCopyRelative(X: Double; Y: Double; Rows: Integer; Columns: Integer; 
  2294.                                var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743870;
  2295.     function MirrorCopyLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  2296.                             var Copy: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743871;
  2297.     function MirrorCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; var Copy: OleVariant; 
  2298.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2299.                              var Matrix: OleVariant): GraphicSet; dispid 1610743872;
  2300.     function Scale(XScale: Double; YScale: Double; ZScale: Double; var XRef: OleVariant; 
  2301.                    var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743873;
  2302.     function RotateAxis(Angle: Double; var XAxis: OleVariant; var YAxis: OleVariant; 
  2303.                         var ZAxis: OleVariant; var X: OleVariant; var Y: OleVariant; 
  2304.                         var Z: OleVariant): IMatrix; dispid 1610743874;
  2305.     function RotateAbsolute(var XTo: OleVariant; var YTo: OleVariant; var ZTo: OleVariant; 
  2306.                             var XFrom: OleVariant; var YFrom: OleVariant; var ZFrom: OleVariant; 
  2307.                             var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743875;
  2308.     function MoveAbsolute(X: Double; Y: Double; Z: Double; var XRef: OleVariant; 
  2309.                           var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743876;
  2310.     function MoveRelative(X: Double; Y: Double; Z: Double): IMatrix; dispid 1610743877;
  2311.     procedure Transform(const Transform: IMatrix); dispid 1610743878;
  2312.     procedure BringToFront; dispid 1610743879;
  2313.     procedure SendToBack; dispid 1610743880;
  2314.     property TypeByValue: ImsiGraphicType readonly dispid 1610743881;
  2315.     function GetDistance(X: Double; Y: Double; Z: Double; var ClosestVertex: OleVariant; 
  2316.                          var ClosestChild: OleVariant): Double; dispid 1610743882;
  2317.     procedure GetFaceData(var VertexArray: OleVariant; var VertexIndices: OleVariant; 
  2318.                           var EdgeFlags: OleVariant); dispid 1610743883;
  2319.     procedure CreateDragOutline(var Coords: OleVariant); dispid 1610743884;
  2320.     property Attributes: Properties readonly dispid 1610743885;
  2321.     property Block: Block dispid 1610743886;
  2322.     procedure GetArcData(var varArcData: OleVariant); dispid 1610743887;
  2323.     procedure Update; dispid 1610743888;
  2324.     property UCS: IMatrix readonly dispid 1610743890;
  2325.   end;
  2326.  
  2327. // *********************************************************************//
  2328. // Interface: BrushStyle
  2329. // Flags:     (4416) Dual OleAutomation Dispatchable
  2330. // GUID:      {6A481119-E531-11CF-A115-00A024158DAF}
  2331. // *********************************************************************//
  2332.   BrushStyle = interface(IDispatch)
  2333.     ['{6A481119-E531-11CF-A115-00A024158DAF}']
  2334.     function Get_Application_: IApplication; safecall;
  2335.     function Get_Bitmap: WideString; safecall;
  2336.     procedure Set_Bitmap(const prop: WideString); safecall;
  2337.     function Get_Color: IMSI_COLOR; safecall;
  2338.     procedure Set_Color(prop: IMSI_COLOR); safecall;
  2339.     function Get_Description: WideString; safecall;
  2340.     procedure Set_Description(const prop: WideString); safecall;
  2341.     function Get_Drawing: IDrawing; safecall;
  2342.     function Get_HatchStyle: ImsiHatchStyle; safecall;
  2343.     procedure Set_HatchStyle(prop: ImsiHatchStyle); safecall;
  2344.     function Get_Index: Integer; safecall;
  2345.     function Get_Name: WideString; safecall;
  2346.     function Get_Parent: IDispatch; safecall;
  2347.     function Get_Patterns: BrushPatterns; safecall;
  2348.     function Get_Type_: ImsiBrushType; safecall;
  2349.     function Get__TableEntryID: Integer; safecall;
  2350.     procedure Delete; safecall;
  2351.     property Application_: IApplication read Get_Application_;
  2352.     property Bitmap: WideString read Get_Bitmap write Set_Bitmap;
  2353.     property Color: IMSI_COLOR read Get_Color write Set_Color;
  2354.     property Description: WideString read Get_Description write Set_Description;
  2355.     property Drawing: IDrawing read Get_Drawing;
  2356.     property HatchStyle: ImsiHatchStyle read Get_HatchStyle write Set_HatchStyle;
  2357.     property Index: Integer read Get_Index;
  2358.     property Name: WideString read Get_Name;
  2359.     property Parent: IDispatch read Get_Parent;
  2360.     property Patterns: BrushPatterns read Get_Patterns;
  2361.     property Type_: ImsiBrushType read Get_Type_;
  2362.     property _TableEntryID: Integer read Get__TableEntryID;
  2363.   end;
  2364.  
  2365. // *********************************************************************//
  2366. // DispIntf:  BrushStyleDisp
  2367. // Flags:     (4416) Dual OleAutomation Dispatchable
  2368. // GUID:      {6A481119-E531-11CF-A115-00A024158DAF}
  2369. // *********************************************************************//
  2370.   BrushStyleDisp = dispinterface
  2371.     ['{6A481119-E531-11CF-A115-00A024158DAF}']
  2372.     property Application_: IApplication readonly dispid 1610743808;
  2373.     property Bitmap: WideString dispid 1610743809;
  2374.     property Color: IMSI_COLOR dispid 1610743811;
  2375.     property Description: WideString dispid 1610743813;
  2376.     property Drawing: IDrawing readonly dispid 1610743815;
  2377.     property HatchStyle: ImsiHatchStyle dispid 1610743816;
  2378.     property Index: Integer readonly dispid 1610743818;
  2379.     property Name: WideString readonly dispid 1610743819;
  2380.     property Parent: IDispatch readonly dispid 1610743820;
  2381.     property Patterns: BrushPatterns readonly dispid 1610743821;
  2382.     property Type_: ImsiBrushType readonly dispid 1610743822;
  2383.     property _TableEntryID: Integer readonly dispid 1610743823;
  2384.     procedure Delete; dispid 1610743824;
  2385.   end;
  2386.  
  2387. // *********************************************************************//
  2388. // Interface: BrushPatterns
  2389. // Flags:     (4416) Dual OleAutomation Dispatchable
  2390. // GUID:      {6A481146-E531-11CF-A115-00A024158DAF}
  2391. // *********************************************************************//
  2392.   BrushPatterns = interface(IDispatch)
  2393.     ['{6A481146-E531-11CF-A115-00A024158DAF}']
  2394.     function Get_Application_: IApplication; safecall;
  2395.     function Get_Count: Integer; safecall;
  2396.     function Get_Item(var Index: OleVariant): IDrawing; safecall;
  2397.     function Get_Parent: IDispatch; safecall;
  2398.     function Get__NewEnum: IUnknown; safecall;
  2399.     property Application_: IApplication read Get_Application_;
  2400.     property Count: Integer read Get_Count;
  2401.     property Item[var Index: OleVariant]: IDrawing read Get_Item;
  2402.     property Parent: IDispatch read Get_Parent;
  2403.     property _NewEnum: IUnknown read Get__NewEnum;
  2404.   end;
  2405.  
  2406. // *********************************************************************//
  2407. // DispIntf:  BrushPatternsDisp
  2408. // Flags:     (4416) Dual OleAutomation Dispatchable
  2409. // GUID:      {6A481146-E531-11CF-A115-00A024158DAF}
  2410. // *********************************************************************//
  2411.   BrushPatternsDisp = dispinterface
  2412.     ['{6A481146-E531-11CF-A115-00A024158DAF}']
  2413.     property Application_: IApplication readonly dispid 1610743808;
  2414.     property Count: Integer readonly dispid 1610743809;
  2415.     property Item[var Index: OleVariant]: IDrawing readonly dispid 0; default;
  2416.     property Parent: IDispatch readonly dispid 1610743811;
  2417.     property _NewEnum: IUnknown readonly dispid -4;
  2418.   end;
  2419.  
  2420. // *********************************************************************//
  2421. // Interface: GraphicCallbacks
  2422. // Flags:     (4416) Dual OleAutomation Dispatchable
  2423. // GUID:      {6A48113E-E531-11CF-A115-00A024158DAF}
  2424. // *********************************************************************//
  2425.   GraphicCallbacks = interface(IDispatch)
  2426.     ['{6A48113E-E531-11CF-A115-00A024158DAF}']
  2427.     function Get_OnAction: OleVariant; safecall;
  2428.     procedure Set_OnAction(var retval: OleVariant); safecall;
  2429.   end;
  2430.  
  2431. // *********************************************************************//
  2432. // DispIntf:  GraphicCallbacksDisp
  2433. // Flags:     (4416) Dual OleAutomation Dispatchable
  2434. // GUID:      {6A48113E-E531-11CF-A115-00A024158DAF}
  2435. // *********************************************************************//
  2436.   GraphicCallbacksDisp = dispinterface
  2437.     ['{6A48113E-E531-11CF-A115-00A024158DAF}']
  2438.     function OnAction: OleVariant; dispid 1610743808;
  2439.   end;
  2440.  
  2441. // *********************************************************************//
  2442. // Interface: Layer
  2443. // Flags:     (4416) Dual OleAutomation Dispatchable
  2444. // GUID:      {6A481115-E531-11CF-A115-00A024158DAF}
  2445. // *********************************************************************//
  2446.   Layer = interface(IDispatch)
  2447.     ['{6A481115-E531-11CF-A115-00A024158DAF}']
  2448.     function Get_Application_: IApplication; safecall;
  2449.     function Get_Count: Integer; safecall;
  2450.     function Get_Drawing: IDrawing; safecall;
  2451.     function Get_Item(var Index: OleVariant): IGraphic; safecall;
  2452.     function Get_Parent: IDispatch; safecall;
  2453.     function Get__NewEnum: IUnknown; safecall;
  2454.     procedure ApplyStyle(const StyleToApply: Style); safecall;
  2455.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  2456.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  2457.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  2458.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  2459.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  2460.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); safecall;
  2461.     function AddHatch: IGraphic; safecall;
  2462.     function CreateStyle(const BasedOn: Style): Style; safecall;
  2463.     function AddObject(var ClassType: OleVariant; var Filename: OleVariant; 
  2464.                        var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  2465.                        var IconFileName: OleVariant; var IconIndex: OleVariant; 
  2466.                        var IconLabel: OleVariant; var X: OleVariant; var Y: OleVariant; 
  2467.                        var Z: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  2468.                        var Anchor: OleVariant): IGraphic; safecall;
  2469.     function AddLineTanArcPoint(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2470.                                 length: Double): IGraphic; safecall;
  2471.     function AddLineTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2472.     function AddLineTanFromArc(const TangentFrom: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2473.     function AddLineTan2Arcs(const Arc1: IGraphic; const Arc2: IGraphic; CounterClockwise: IMSI_BOOL): IGraphic; safecall;
  2474.     function AddDimensionLeader(X0: Double; Y0: Double; Z0: Double; const Text: WideString): IGraphic; safecall;
  2475.     function AddDimensionBaseline(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2476.     function AddDimensionContinuous(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2477.     function AddDoubleLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2478.                                  Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  2479.     function AddDoubleLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2480.                                   Z1: Double; Sides: Integer; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  2481.     function AddDoubleLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2482.                                     Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  2483.     function AddDoubleLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  2484.                                            Y1: Double; Z1: Double; Angle: Double; 
  2485.                                            var DoubleLineOffset: OleVariant): IGraphic; safecall;
  2486.     function AddDoubleLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2487.                                         X1: Double; Y1: Double; Z1: Double; 
  2488.                                         var DoubleLineOffset: OleVariant): IGraphic; safecall;
  2489.     function AddDoubleLineMultiline(X0: Double; Y0: Double; Z0: Double; 
  2490.                                     var DoubleLineOffset: OleVariant): IGraphic; safecall;
  2491.     function AddDoubleLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double; 
  2492.                                            var DoubleLineOffset: OleVariant): IGraphic; safecall;
  2493.     function AddDoubleLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2494.                                    var DoubleLineOffset: OleVariant): IGraphic; safecall;
  2495.     function AddCircleTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2496.                                X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  2497.     function AddCircleTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2498.                                 X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  2499.     function AddCircleTan3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic): IGraphic; safecall;
  2500.     function AddArcTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2501.                             X1: Double; Y1: Double; Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  2502.     function AddArcTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2503.                              X1: Double; Y1: Double; Z1: Double; StartAngle: Double; 
  2504.                              EndAngle: Double): IGraphic; safecall;
  2505.     function AddArcTanTo3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic; 
  2506.                               StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  2507.     function AddDimensionHorizontal(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2508.                                     Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  2509.     function AddDimensionVertical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2510.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  2511.     function AddDimensionParallel(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2512.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  2513.     function AddDimensionRotated(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2514.                                  Z1: Double; X2: Double; Y2: Double; Z2: Double; X3: Double; 
  2515.                                  Y3: Double; Z3: Double; X4: Double; Y4: Double; Z4: Double): IGraphic; safecall;
  2516.     function AddDimensionDatum(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2517.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  2518.     function AddDimensionAngular(const Line1: IGraphic; const Line2: IGraphic; X0: Double; 
  2519.                                  Y0: Double; Z0: Double): IGraphic; safecall;
  2520.     function AddDimensionRadius(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2521.     function AddDimensionDiameter(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2522.     function Add(var GraphicType: OleVariant; var RegenMethod: OleVariant; var Inherit: OleVariant; 
  2523.                  var Style: OleVariant; var Before: OleVariant; var After: OleVariant): IGraphic; safecall;
  2524.     procedure AddGraphic(const Graphic: IGraphic; var Before: OleVariant; var After: OleVariant); safecall;
  2525.     function CalcBoundingBox(var Transform: OleVariant): BoundingBox; safecall;
  2526.     procedure Clear(var CosmeticOnly: OleVariant); safecall;
  2527.     procedure ClearConstruction; safecall;
  2528.     procedure Copy; safecall;
  2529.     procedure Cut; safecall;
  2530.     procedure Draw(var View: OleVariant); safecall;
  2531.     function Remove(var Index: OleVariant): IGraphic; safecall;
  2532.     procedure Select; safecall;
  2533.     procedure Unselect; safecall;
  2534.     function AddConstructionAngularLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2535.                                         Z1: Double): IGraphic; safecall;
  2536.     function AddConstructionHorizontalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2537.     function AddConstructionVerticalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2538.     function AddConstructionCenterAndPointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  2539.                                                  Y1: Double; Z1: Double): IGraphic; safecall;
  2540.     function AddConstructionDoublePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  2541.                                               Y1: Double; Z1: Double): IGraphic; safecall;
  2542.     function AddConstructionTriplePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  2543.                                               Y1: Double; Z1: Double; X2: Double; Y2: Double; 
  2544.                                               Z2: Double): IGraphic; safecall;
  2545.     function AddDot(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2546.     function AddStar(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2547.     function AddSquare(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2548.     function AddCross(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2549.     function AddCircle(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2550.     function AddLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  2551.     function AddLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  2552.                             nsides: Integer): IGraphic; safecall;
  2553.     function AddLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  2554.     function AddLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2555.                                      Z1: Double; Angle: Double): IGraphic; safecall;
  2556.     function AddLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2557.                                   X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  2558.     function AddLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2559.     function AddLineMultiline(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2560.     function AddLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2561.     function AddCurveBezier(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2562.     function AddCurveSpline(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  2563.     function AddCircleCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2564.                                      Z1: Double): IGraphic; safecall;
  2565.     function AddCircleDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2566.                                   Z1: Double): IGraphic; safecall;
  2567.     function AddCircleTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2568.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  2569.     function AddEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  2570.     function AddEllipseRotatedEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2571.                                       Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  2572.     function AddEllipseFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2573.                                   Z1: Double; XToYRatio: Double): IGraphic; safecall;
  2574.     function AddArcCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2575.                                   Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  2576.     function AddArcDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2577.                                Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  2578.     function AddArcTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2579.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  2580.     function AddArcElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2581.                               Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  2582.     function AddArcRotatedElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2583.                                      Z1: Double; X2: Double; Y2: Double; Z2: Double; 
  2584.                                      StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  2585.     function AddArcEllipticalFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2586.                                         Z1: Double; XToYRatio: Double; StartAngle: Double; 
  2587.                                         EndAngle: Double): IGraphic; safecall;
  2588.     function AddText(const Text: WideString; X0: Double; Y0: Double; Z0: Double; Height: Double; 
  2589.                      var Angle: OleVariant; var Width: OleVariant; var Offset: OleVariant; 
  2590.                      var Justification: OleVariant): IGraphic; safecall;
  2591.     function CreateBlock(const Name: WideString; var XRef: OleVariant; var YRef: OleVariant; 
  2592.                          var ZRef: OleVariant; var CopyGraphics: OleVariant; 
  2593.                          var InsertBlock: OleVariant; var Insert: OleVariant): Block; safecall;
  2594.     function AddBlockInsertion(var Block: OleVariant; var X0: OleVariant; var Y0: OleVariant; 
  2595.                                var Z0: OleVariant; var XScale: OleVariant; var YScale: OleVariant; 
  2596.                                var ZScale: OleVariant; var Angle: OleVariant): IGraphic; safecall;
  2597.     function AddGroup(var Name: OleVariant; var Copy: OleVariant): IGraphic; safecall;
  2598.     function Explode: GraphicSet; safecall;
  2599.     function LinearCopyAbsolute(X: Double; Y: Double; Z: Double; Copies: Integer; 
  2600.                                 var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  2601.                                 var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2602.     function LinearCopyRelative(X: Double; Y: Double; Z: Double; Copies: Integer; 
  2603.                                 var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2604.     function LinearCopyAngle(length: Double; Angle: Double; Copies: Integer; var Fit: OleVariant; 
  2605.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2606.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2607.     function RadialCopyAbsolute(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2608.                                 Z1: Double; Copies: Integer; var Fit: OleVariant; 
  2609.                                 var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2610.                                 var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2611.     function RadialCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; RotationAngle: Double; 
  2612.                              Copies: Integer; var Fit: OleVariant; var XRef: OleVariant; 
  2613.                              var YRef: OleVariant; var ZRef: OleVariant; var Workplane: OleVariant; 
  2614.                              var Matrix: OleVariant): GraphicSet; safecall;
  2615.     function ArrayCopyAbsolute(X: Double; Y: Double; Z: Double; Rows: Integer; Columns: Integer; 
  2616.                                var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  2617.                                var ZRef: OleVariant; var Workplane: OleVariant; 
  2618.                                var Matrix: OleVariant): GraphicSet; safecall;
  2619.     function ArrayCopyRelative(U: Double; V: Double; Rows: Integer; Columns: Integer; 
  2620.                                var Fit: OleVariant; var Workplane: OleVariant; 
  2621.                                var Matrix: OleVariant): GraphicSet; safecall;
  2622.     function MirrorCopyLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  2623.                             var Copy: OleVariant; var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2624.     function MirrorCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; var Copy: OleVariant; 
  2625.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2626.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  2627.     function Scale(XScale: Double; YScale: Double; ZScale: Double; var XRef: OleVariant; 
  2628.                    var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  2629.     function RotateAxis(Angle: Double; var XAxis: OleVariant; var YAxis: OleVariant; 
  2630.                         var ZAxis: OleVariant; var X: OleVariant; var Y: OleVariant; 
  2631.                         var Z: OleVariant): IMatrix; safecall;
  2632.     function RotateAbsolute(var XTo: OleVariant; var YTo: OleVariant; var ZTo: OleVariant; 
  2633.                             var XFrom: OleVariant; var YFrom: OleVariant; var ZFrom: OleVariant; 
  2634.                             var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  2635.     function MoveAbsolute(X: Double; Y: Double; Z: Double; var XRef: OleVariant; 
  2636.                           var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  2637.     function MoveRelative(X: Double; Y: Double; Z: Double): IMatrix; safecall;
  2638.     procedure Transform(const Transform: IMatrix); safecall;
  2639.     procedure Align(AlignType: ImsiAlignType); safecall;
  2640.     procedure AlignAlongLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double); safecall;
  2641.     function _FindIndex(g: Integer): Integer; safecall;
  2642.     function QuerySet(const Query: WideString): GraphicSet; safecall;
  2643.     function AddPolys(Type_: ImsiPolyType; var Coords: OleVariant): GraphicSet; safecall;
  2644.     procedure CreateDragOutline(var Coords: OleVariant); safecall;
  2645.     function AddPolylines(NumberOfPolylines: Integer; var Coords: OleVariant; Closed: IMSI_BOOL): GraphicSet; safecall;
  2646.     function GraphicFromID(ID: Integer): IGraphic; safecall;
  2647.     function AddAttributeDefinition(const Tag: WideString; X0: Double; Y0: Double; Z0: Double; 
  2648.                                     Height: Double; var Angle: OleVariant; var Width: OleVariant; 
  2649.                                     var Offset: OleVariant; var Justification: OleVariant; 
  2650.                                     var AttFlags: OleVariant; var Default: OleVariant; 
  2651.                                     var Prompt: OleVariant): IGraphic; safecall;
  2652.     function Get_BrushStyle: BrushStyle; safecall;
  2653.     procedure Set_BrushStyle(var prop: OleVariant); safecall;
  2654.     function Get_Color: IMSI_COLOR; safecall;
  2655.     procedure Set_Color(prop: IMSI_COLOR); safecall;
  2656.     function Get_Editable: IMSI_BOOL; safecall;
  2657.     procedure Set_Editable(prop: IMSI_BOOL); safecall;
  2658.     function Get_Frozen: IMSI_BOOL; safecall;
  2659.     procedure Set_Frozen(prop: IMSI_BOOL); safecall;
  2660.     function Get_Index: Integer; safecall;
  2661.     function Get_LineStyle: LineStyle; safecall;
  2662.     procedure Set_LineStyle(var prop: OleVariant); safecall;
  2663.     function Get_Name: WideString; safecall;
  2664.     procedure Set_Name(const prop: WideString); safecall;
  2665.     function Get_Properties: Properties; safecall;
  2666.     function Get_Style: Style; safecall;
  2667.     procedure Set_Style(var prop: OleVariant); safecall;
  2668.     function Get_Visible: IMSI_BOOL; safecall;
  2669.     procedure Set_Visible(prop: IMSI_BOOL); safecall;
  2670.     function Get_ZOrder: Integer; safecall;
  2671.     procedure Set_ZOrder(prop: Integer); safecall;
  2672.     function Get__TableEntryID: Integer; safecall;
  2673.     procedure Delete; safecall;
  2674.     function Duplicate(const Name: WideString): Layer; safecall;
  2675.     property Application_: IApplication read Get_Application_;
  2676.     property Count: Integer read Get_Count;
  2677.     property Drawing: IDrawing read Get_Drawing;
  2678.     property Item[var Index: OleVariant]: IGraphic read Get_Item;
  2679.     property Parent: IDispatch read Get_Parent;
  2680.     property _NewEnum: IUnknown read Get__NewEnum;
  2681.     property Color: IMSI_COLOR read Get_Color write Set_Color;
  2682.     property Editable: IMSI_BOOL read Get_Editable write Set_Editable;
  2683.     property Frozen: IMSI_BOOL read Get_Frozen write Set_Frozen;
  2684.     property Index: Integer read Get_Index;
  2685.     property Name: WideString read Get_Name write Set_Name;
  2686.     property Properties: Properties read Get_Properties;
  2687.     property Visible: IMSI_BOOL read Get_Visible write Set_Visible;
  2688.     property ZOrder: Integer read Get_ZOrder write Set_ZOrder;
  2689.     property _TableEntryID: Integer read Get__TableEntryID;
  2690.   end;
  2691.  
  2692. // *********************************************************************//
  2693. // DispIntf:  LayerDisp
  2694. // Flags:     (4416) Dual OleAutomation Dispatchable
  2695. // GUID:      {6A481115-E531-11CF-A115-00A024158DAF}
  2696. // *********************************************************************//
  2697.   LayerDisp = dispinterface
  2698.     ['{6A481115-E531-11CF-A115-00A024158DAF}']
  2699.     property Application_: IApplication readonly dispid 1610743808;
  2700.     property Count: Integer readonly dispid 1610743809;
  2701.     property Drawing: IDrawing readonly dispid 1610743810;
  2702.     property Item[var Index: OleVariant]: IGraphic readonly dispid 0; default;
  2703.     property Parent: IDispatch readonly dispid 1610743812;
  2704.     property _NewEnum: IUnknown readonly dispid -4;
  2705.     procedure ApplyStyle(const StyleToApply: Style); dispid 1610743814;
  2706.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  2707.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  2708.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  2709.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  2710.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  2711.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); dispid 1610743815;
  2712.     function AddHatch: IGraphic; dispid 1610743816;
  2713.     function CreateStyle(const BasedOn: Style): Style; dispid 1610743817;
  2714.     function AddObject(var ClassType: OleVariant; var Filename: OleVariant; 
  2715.                        var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  2716.                        var IconFileName: OleVariant; var IconIndex: OleVariant; 
  2717.                        var IconLabel: OleVariant; var X: OleVariant; var Y: OleVariant; 
  2718.                        var Z: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  2719.                        var Anchor: OleVariant): IGraphic; dispid 1610743818;
  2720.     function AddLineTanArcPoint(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2721.                                 length: Double): IGraphic; dispid 1610743819;
  2722.     function AddLineTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743820;
  2723.     function AddLineTanFromArc(const TangentFrom: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743821;
  2724.     function AddLineTan2Arcs(const Arc1: IGraphic; const Arc2: IGraphic; CounterClockwise: IMSI_BOOL): IGraphic; dispid 1610743822;
  2725.     function AddDimensionLeader(X0: Double; Y0: Double; Z0: Double; const Text: WideString): IGraphic; dispid 1610743823;
  2726.     function AddDimensionBaseline(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743824;
  2727.     function AddDimensionContinuous(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743825;
  2728.     function AddDoubleLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2729.                                  Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743826;
  2730.     function AddDoubleLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2731.                                   Z1: Double; Sides: Integer; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743827;
  2732.     function AddDoubleLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2733.                                     Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743828;
  2734.     function AddDoubleLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  2735.                                            Y1: Double; Z1: Double; Angle: Double; 
  2736.                                            var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743829;
  2737.     function AddDoubleLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2738.                                         X1: Double; Y1: Double; Z1: Double; 
  2739.                                         var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743830;
  2740.     function AddDoubleLineMultiline(X0: Double; Y0: Double; Z0: Double; 
  2741.                                     var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743831;
  2742.     function AddDoubleLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double; 
  2743.                                            var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743832;
  2744.     function AddDoubleLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2745.                                    var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743833;
  2746.     function AddCircleTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2747.                                X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743834;
  2748.     function AddCircleTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2749.                                 X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743835;
  2750.     function AddCircleTan3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic): IGraphic; dispid 1610743836;
  2751.     function AddArcTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2752.                             X1: Double; Y1: Double; Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743837;
  2753.     function AddArcTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2754.                              X1: Double; Y1: Double; Z1: Double; StartAngle: Double; 
  2755.                              EndAngle: Double): IGraphic; dispid 1610743838;
  2756.     function AddArcTanTo3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic; 
  2757.                               StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743839;
  2758.     function AddDimensionHorizontal(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2759.                                     Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743840;
  2760.     function AddDimensionVertical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2761.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743841;
  2762.     function AddDimensionParallel(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2763.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743842;
  2764.     function AddDimensionRotated(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2765.                                  Z1: Double; X2: Double; Y2: Double; Z2: Double; X3: Double; 
  2766.                                  Y3: Double; Z3: Double; X4: Double; Y4: Double; Z4: Double): IGraphic; dispid 1610743843;
  2767.     function AddDimensionDatum(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2768.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743844;
  2769.     function AddDimensionAngular(const Line1: IGraphic; const Line2: IGraphic; X0: Double; 
  2770.                                  Y0: Double; Z0: Double): IGraphic; dispid 1610743845;
  2771.     function AddDimensionRadius(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743846;
  2772.     function AddDimensionDiameter(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743847;
  2773.     function Add(var GraphicType: OleVariant; var RegenMethod: OleVariant; var Inherit: OleVariant; 
  2774.                  var Style: OleVariant; var Before: OleVariant; var After: OleVariant): IGraphic; dispid 1610743848;
  2775.     procedure AddGraphic(const Graphic: IGraphic; var Before: OleVariant; var After: OleVariant); dispid 1610743849;
  2776.     function CalcBoundingBox(var Transform: OleVariant): BoundingBox; dispid 1610743850;
  2777.     procedure Clear(var CosmeticOnly: OleVariant); dispid 1610743851;
  2778.     procedure ClearConstruction; dispid 1610743852;
  2779.     procedure Copy; dispid 1610743853;
  2780.     procedure Cut; dispid 1610743854;
  2781.     procedure Draw(var View: OleVariant); dispid 1610743855;
  2782.     function Remove(var Index: OleVariant): IGraphic; dispid 1610743856;
  2783.     procedure Select; dispid 1610743857;
  2784.     procedure Unselect; dispid 1610743858;
  2785.     function AddConstructionAngularLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2786.                                         Z1: Double): IGraphic; dispid 1610743859;
  2787.     function AddConstructionHorizontalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743860;
  2788.     function AddConstructionVerticalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743861;
  2789.     function AddConstructionCenterAndPointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  2790.                                                  Y1: Double; Z1: Double): IGraphic; dispid 1610743862;
  2791.     function AddConstructionDoublePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  2792.                                               Y1: Double; Z1: Double): IGraphic; dispid 1610743863;
  2793.     function AddConstructionTriplePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  2794.                                               Y1: Double; Z1: Double; X2: Double; Y2: Double; 
  2795.                                               Z2: Double): IGraphic; dispid 1610743864;
  2796.     function AddDot(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743865;
  2797.     function AddStar(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743866;
  2798.     function AddSquare(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743867;
  2799.     function AddCross(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743868;
  2800.     function AddCircle(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743869;
  2801.     function AddLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743870;
  2802.     function AddLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  2803.                             nsides: Integer): IGraphic; dispid 1610743871;
  2804.     function AddLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743872;
  2805.     function AddLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2806.                                      Z1: Double; Angle: Double): IGraphic; dispid 1610743873;
  2807.     function AddLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  2808.                                   X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743874;
  2809.     function AddLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743875;
  2810.     function AddLineMultiline(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743876;
  2811.     function AddLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743877;
  2812.     function AddCurveBezier(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743878;
  2813.     function AddCurveSpline(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743879;
  2814.     function AddCircleCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2815.                                      Z1: Double): IGraphic; dispid 1610743880;
  2816.     function AddCircleDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2817.                                   Z1: Double): IGraphic; dispid 1610743881;
  2818.     function AddCircleTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2819.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743882;
  2820.     function AddEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743883;
  2821.     function AddEllipseRotatedEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2822.                                       Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743884;
  2823.     function AddEllipseFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2824.                                   Z1: Double; XToYRatio: Double): IGraphic; dispid 1610743885;
  2825.     function AddArcCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2826.                                   Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743886;
  2827.     function AddArcDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2828.                                Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743887;
  2829.     function AddArcTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2830.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743888;
  2831.     function AddArcElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2832.                               Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743889;
  2833.     function AddArcRotatedElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2834.                                      Z1: Double; X2: Double; Y2: Double; Z2: Double; 
  2835.                                      StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743890;
  2836.     function AddArcEllipticalFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2837.                                         Z1: Double; XToYRatio: Double; StartAngle: Double; 
  2838.                                         EndAngle: Double): IGraphic; dispid 1610743891;
  2839.     function AddText(const Text: WideString; X0: Double; Y0: Double; Z0: Double; Height: Double; 
  2840.                      var Angle: OleVariant; var Width: OleVariant; var Offset: OleVariant; 
  2841.                      var Justification: OleVariant): IGraphic; dispid 1610743892;
  2842.     function CreateBlock(const Name: WideString; var XRef: OleVariant; var YRef: OleVariant; 
  2843.                          var ZRef: OleVariant; var CopyGraphics: OleVariant; 
  2844.                          var InsertBlock: OleVariant; var Insert: OleVariant): Block; dispid 1610743893;
  2845.     function AddBlockInsertion(var Block: OleVariant; var X0: OleVariant; var Y0: OleVariant; 
  2846.                                var Z0: OleVariant; var XScale: OleVariant; var YScale: OleVariant; 
  2847.                                var ZScale: OleVariant; var Angle: OleVariant): IGraphic; dispid 1610743894;
  2848.     function AddGroup(var Name: OleVariant; var Copy: OleVariant): IGraphic; dispid 1610743895;
  2849.     function Explode: GraphicSet; dispid 1610743896;
  2850.     function LinearCopyAbsolute(X: Double; Y: Double; Z: Double; Copies: Integer; 
  2851.                                 var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  2852.                                 var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743897;
  2853.     function LinearCopyRelative(X: Double; Y: Double; Z: Double; Copies: Integer; 
  2854.                                 var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743898;
  2855.     function LinearCopyAngle(length: Double; Angle: Double; Copies: Integer; var Fit: OleVariant; 
  2856.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2857.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743899;
  2858.     function RadialCopyAbsolute(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  2859.                                 Z1: Double; Copies: Integer; var Fit: OleVariant; 
  2860.                                 var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2861.                                 var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743900;
  2862.     function RadialCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; RotationAngle: Double; 
  2863.                              Copies: Integer; var Fit: OleVariant; var XRef: OleVariant; 
  2864.                              var YRef: OleVariant; var ZRef: OleVariant; var Workplane: OleVariant; 
  2865.                              var Matrix: OleVariant): GraphicSet; dispid 1610743901;
  2866.     function ArrayCopyAbsolute(X: Double; Y: Double; Z: Double; Rows: Integer; Columns: Integer; 
  2867.                                var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  2868.                                var ZRef: OleVariant; var Workplane: OleVariant; 
  2869.                                var Matrix: OleVariant): GraphicSet; dispid 1610743902;
  2870.     function ArrayCopyRelative(U: Double; V: Double; Rows: Integer; Columns: Integer; 
  2871.                                var Fit: OleVariant; var Workplane: OleVariant; 
  2872.                                var Matrix: OleVariant): GraphicSet; dispid 1610743903;
  2873.     function MirrorCopyLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  2874.                             var Copy: OleVariant; var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743904;
  2875.     function MirrorCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; var Copy: OleVariant; 
  2876.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  2877.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743905;
  2878.     function Scale(XScale: Double; YScale: Double; ZScale: Double; var XRef: OleVariant; 
  2879.                    var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743906;
  2880.     function RotateAxis(Angle: Double; var XAxis: OleVariant; var YAxis: OleVariant; 
  2881.                         var ZAxis: OleVariant; var X: OleVariant; var Y: OleVariant; 
  2882.                         var Z: OleVariant): IMatrix; dispid 1610743907;
  2883.     function RotateAbsolute(var XTo: OleVariant; var YTo: OleVariant; var ZTo: OleVariant; 
  2884.                             var XFrom: OleVariant; var YFrom: OleVariant; var ZFrom: OleVariant; 
  2885.                             var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743908;
  2886.     function MoveAbsolute(X: Double; Y: Double; Z: Double; var XRef: OleVariant; 
  2887.                           var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743909;
  2888.     function MoveRelative(X: Double; Y: Double; Z: Double): IMatrix; dispid 1610743910;
  2889.     procedure Transform(const Transform: IMatrix); dispid 1610743911;
  2890.     procedure Align(AlignType: ImsiAlignType); dispid 1610743912;
  2891.     procedure AlignAlongLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double); dispid 1610743913;
  2892.     function _FindIndex(g: Integer): Integer; dispid 1610743914;
  2893.     function QuerySet(const Query: WideString): GraphicSet; dispid 1610743915;
  2894.     function AddPolys(Type_: ImsiPolyType; var Coords: OleVariant): GraphicSet; dispid 1610743916;
  2895.     procedure CreateDragOutline(var Coords: OleVariant); dispid 1610743917;
  2896.     function AddPolylines(NumberOfPolylines: Integer; var Coords: OleVariant; Closed: IMSI_BOOL): GraphicSet; dispid 1610743918;
  2897.     function GraphicFromID(ID: Integer): IGraphic; dispid 1610743919;
  2898.     function AddAttributeDefinition(const Tag: WideString; X0: Double; Y0: Double; Z0: Double; 
  2899.                                     Height: Double; var Angle: OleVariant; var Width: OleVariant; 
  2900.                                     var Offset: OleVariant; var Justification: OleVariant; 
  2901.                                     var AttFlags: OleVariant; var Default: OleVariant; 
  2902.                                     var Prompt: OleVariant): IGraphic; dispid 1610743920;
  2903.     function BrushStyle: BrushStyle; dispid 1610743921;
  2904.     property Color: IMSI_COLOR dispid 1610743923;
  2905.     property Editable: IMSI_BOOL dispid 1610743925;
  2906.     property Frozen: IMSI_BOOL dispid 1610743927;
  2907.     property Index: Integer readonly dispid 1610743929;
  2908.     function LineStyle: LineStyle; dispid 1610743930;
  2909.     property Name: WideString dispid 1610743932;
  2910.     property Properties: Properties readonly dispid 1610743934;
  2911.     function Style: Style; dispid 1610743935;
  2912.     property Visible: IMSI_BOOL dispid 1610743937;
  2913.     property ZOrder: Integer dispid 1610743939;
  2914.     property _TableEntryID: Integer readonly dispid 1610743941;
  2915.     procedure Delete; dispid 1610743942;
  2916.     function Duplicate(const Name: WideString): Layer; dispid 1610743943;
  2917.   end;
  2918.  
  2919. // *********************************************************************//
  2920. // Interface: Style
  2921. // Flags:     (4416) Dual OleAutomation Dispatchable
  2922. // GUID:      {6A48113A-E531-11CF-A115-00A024158DAF}
  2923. // *********************************************************************//
  2924.   Style = interface(IDispatch)
  2925.     ['{6A48113A-E531-11CF-A115-00A024158DAF}']
  2926.     function Get_Application_: IApplication; safecall;
  2927.     function Get_BasedOn: Style; safecall;
  2928.     procedure Set_BasedOn(const prop: Style); safecall;
  2929.     function Get_Index: Integer; safecall;
  2930.     function Get_Name: WideString; safecall;
  2931.     function Get_Parent: IDispatch; safecall;
  2932.     function Get_Properties: Properties; safecall;
  2933.     function Get__Defaults: Integer; safecall;
  2934.     function Get__TableEntryID: Integer; safecall;
  2935.     procedure AddGraphicProperties(const GraphicToAdd: IGraphic); safecall;
  2936.     procedure Delete; safecall;
  2937.     function Duplicate(const Name: WideString): Style; safecall;
  2938.     property Application_: IApplication read Get_Application_;
  2939.     property BasedOn: Style read Get_BasedOn write Set_BasedOn;
  2940.     property Index: Integer read Get_Index;
  2941.     property Name: WideString read Get_Name;
  2942.     property Parent: IDispatch read Get_Parent;
  2943.     property Properties: Properties read Get_Properties;
  2944.     property _Defaults: Integer read Get__Defaults;
  2945.     property _TableEntryID: Integer read Get__TableEntryID;
  2946.   end;
  2947.  
  2948. // *********************************************************************//
  2949. // DispIntf:  StyleDisp
  2950. // Flags:     (4416) Dual OleAutomation Dispatchable
  2951. // GUID:      {6A48113A-E531-11CF-A115-00A024158DAF}
  2952. // *********************************************************************//
  2953.   StyleDisp = dispinterface
  2954.     ['{6A48113A-E531-11CF-A115-00A024158DAF}']
  2955.     property Application_: IApplication readonly dispid 1610743808;
  2956.     property BasedOn: Style dispid 1610743809;
  2957.     property Index: Integer readonly dispid 1610743811;
  2958.     property Name: WideString readonly dispid 1610743812;
  2959.     property Parent: IDispatch readonly dispid 1610743813;
  2960.     property Properties: Properties readonly dispid 1610743814;
  2961.     property _Defaults: Integer readonly dispid 1610743815;
  2962.     property _TableEntryID: Integer readonly dispid 1610743816;
  2963.     procedure AddGraphicProperties(const GraphicToAdd: IGraphic); dispid 1610743817;
  2964.     procedure Delete; dispid 1610743818;
  2965.     function Duplicate(const Name: WideString): Style; dispid 1610743819;
  2966.   end;
  2967.  
  2968. // *********************************************************************//
  2969. // Interface: Properties
  2970. // Flags:     (4416) Dual OleAutomation Dispatchable
  2971. // GUID:      {6A48110F-E531-11CF-A115-00A024158DAF}
  2972. // *********************************************************************//
  2973.   Properties = interface(IDispatch)
  2974.     ['{6A48110F-E531-11CF-A115-00A024158DAF}']
  2975.     function Get_Application_: IApplication; safecall;
  2976.     function Get_Count: Integer; safecall;
  2977.     function Get_Item(var Index: OleVariant): Property_; safecall;
  2978.     function Get_Parent: IDispatch; safecall;
  2979.     function Get__NewEnum: IUnknown; safecall;
  2980.     function Add(const Name: WideString; var Value: OleVariant; var ReadOnly: OleVariant; 
  2981.                  var ID: OleVariant): Property_; safecall;
  2982.     procedure Edit; safecall;
  2983.     procedure Enumerate(out IDs: OleVariant; out Names: OleVariant; out Types: OleVariant); safecall;
  2984.     property Application_: IApplication read Get_Application_;
  2985.     property Count: Integer read Get_Count;
  2986.     property Item[var Index: OleVariant]: Property_ read Get_Item;
  2987.     property Parent: IDispatch read Get_Parent;
  2988.     property _NewEnum: IUnknown read Get__NewEnum;
  2989.   end;
  2990.  
  2991. // *********************************************************************//
  2992. // DispIntf:  PropertiesDisp
  2993. // Flags:     (4416) Dual OleAutomation Dispatchable
  2994. // GUID:      {6A48110F-E531-11CF-A115-00A024158DAF}
  2995. // *********************************************************************//
  2996.   PropertiesDisp = dispinterface
  2997.     ['{6A48110F-E531-11CF-A115-00A024158DAF}']
  2998.     property Application_: IApplication readonly dispid 1610743808;
  2999.     property Count: Integer readonly dispid 1610743809;
  3000.     property Item[var Index: OleVariant]: Property_ readonly dispid 0; default;
  3001.     property Parent: IDispatch readonly dispid 1610743811;
  3002.     property _NewEnum: IUnknown readonly dispid -4;
  3003.     function Add(const Name: WideString; var Value: OleVariant; var ReadOnly: OleVariant; 
  3004.                  var ID: OleVariant): Property_; dispid 1610743813;
  3005.     procedure Edit; dispid 1610743814;
  3006.     procedure Enumerate(out IDs: OleVariant; out Names: OleVariant; out Types: OleVariant); dispid 1610743815;
  3007.   end;
  3008.  
  3009. // *********************************************************************//
  3010. // Interface: Property_
  3011. // Flags:     (4416) Dual OleAutomation Dispatchable
  3012. // GUID:      {6A48110E-E531-11CF-A115-00A024158DAF}
  3013. // *********************************************************************//
  3014.   Property_ = interface(IDispatch)
  3015.     ['{6A48110E-E531-11CF-A115-00A024158DAF}']
  3016.     function Get_Application_: IApplication; safecall;
  3017.     function Get_Builtin: IMSI_BOOL; safecall;
  3018.     function Get_Domain: ImsiDomain; safecall;
  3019.     function Get_ID: Integer; safecall;
  3020.     function Get_Index: Integer; safecall;
  3021.     function Get_Name: WideString; safecall;
  3022.     function Get_Parent: IDispatch; safecall;
  3023.     function Get_ReadOnly: IMSI_BOOL; safecall;
  3024.     procedure Set_ReadOnly(prop: IMSI_BOOL); safecall;
  3025.     function Get_Type_: Smallint; safecall;
  3026.     function Get_Value(lcid: Integer): OleVariant; safecall;
  3027.     procedure Set_Value(lcid: Integer; var prop: OleVariant); safecall;
  3028.     procedure Delete; safecall;
  3029.     function Duplicate(const Name: WideString): Property_; safecall;
  3030.     function Get_IsAttribute: IMSI_BOOL; safecall;
  3031.     property Application_: IApplication read Get_Application_;
  3032.     property Builtin: IMSI_BOOL read Get_Builtin;
  3033.     property Domain: ImsiDomain read Get_Domain;
  3034.     property ID: Integer read Get_ID;
  3035.     property Index: Integer read Get_Index;
  3036.     property Name: WideString read Get_Name;
  3037.     property Parent: IDispatch read Get_Parent;
  3038.     property ReadOnly: IMSI_BOOL read Get_ReadOnly write Set_ReadOnly;
  3039.     property Type_: Smallint read Get_Type_;
  3040.     property IsAttribute: IMSI_BOOL read Get_IsAttribute;
  3041.   end;
  3042.  
  3043. // *********************************************************************//
  3044. // DispIntf:  Property_Disp
  3045. // Flags:     (4416) Dual OleAutomation Dispatchable
  3046. // GUID:      {6A48110E-E531-11CF-A115-00A024158DAF}
  3047. // *********************************************************************//
  3048.   Property_Disp = dispinterface
  3049.     ['{6A48110E-E531-11CF-A115-00A024158DAF}']
  3050.     property Application_: IApplication readonly dispid 1610743808;
  3051.     property Builtin: IMSI_BOOL readonly dispid 1610743809;
  3052.     property Domain: ImsiDomain readonly dispid 1610743810;
  3053.     property ID: Integer readonly dispid 1610743811;
  3054.     property Index: Integer readonly dispid 1610743812;
  3055.     property Name: WideString readonly dispid 1610743813;
  3056.     property Parent: IDispatch readonly dispid 1610743814;
  3057.     property ReadOnly: IMSI_BOOL dispid 1610743815;
  3058.     property Type_: Smallint readonly dispid 1610743817;
  3059.     function Value(lcid: Integer): OleVariant; dispid 0;
  3060.     procedure Delete; dispid 1610743820;
  3061.     function Duplicate(const Name: WideString): Property_; dispid 1610743821;
  3062.     property IsAttribute: IMSI_BOOL readonly dispid 1610743822;
  3063.   end;
  3064.  
  3065. // *********************************************************************//
  3066. // Interface: BoundingBox
  3067. // Flags:     (4416) Dual OleAutomation Dispatchable
  3068. // GUID:      {6A48111F-E531-11CF-A115-00A024158DAF}
  3069. // *********************************************************************//
  3070.   BoundingBox = interface(IDispatch)
  3071.     ['{6A48111F-E531-11CF-A115-00A024158DAF}']
  3072.     function Get_Empty: IMSI_BOOL; safecall;
  3073.     function Get_Max: IVertex; safecall;
  3074.     function Get_Min: IVertex; safecall;
  3075.     function DirToNearestFace(const Vertex: IVertex; IgnoreZAxis: IMSI_BOOL; 
  3076.                               var OtherVertex: OleVariant): ImsiDirection; safecall;
  3077.     procedure Inflate(InflateBy: Double); safecall;
  3078.     procedure Set_(var Center: OleVariant; var Size: OleVariant); safecall;
  3079.     property Empty: IMSI_BOOL read Get_Empty;
  3080.     property Max: IVertex read Get_Max;
  3081.     property Min: IVertex read Get_Min;
  3082.   end;
  3083.  
  3084. // *********************************************************************//
  3085. // DispIntf:  BoundingBoxDisp
  3086. // Flags:     (4416) Dual OleAutomation Dispatchable
  3087. // GUID:      {6A48111F-E531-11CF-A115-00A024158DAF}
  3088. // *********************************************************************//
  3089.   BoundingBoxDisp = dispinterface
  3090.     ['{6A48111F-E531-11CF-A115-00A024158DAF}']
  3091.     property Empty: IMSI_BOOL readonly dispid 1610743808;
  3092.     property Max: IVertex readonly dispid 1610743809;
  3093.     property Min: IVertex readonly dispid 1610743810;
  3094.     function DirToNearestFace(const Vertex: IVertex; IgnoreZAxis: IMSI_BOOL; 
  3095.                               var OtherVertex: OleVariant): ImsiDirection; dispid 1610743811;
  3096.     procedure Inflate(InflateBy: Double); dispid 1610743812;
  3097.     procedure Set_(var Center: OleVariant; var Size: OleVariant); dispid 1610743813;
  3098.   end;
  3099.  
  3100. // *********************************************************************//
  3101. // Interface: IVertex
  3102. // Flags:     (4416) Dual OleAutomation Dispatchable
  3103. // GUID:      {6A48110C-E531-11CF-A115-00A024158DAF}
  3104. // *********************************************************************//
  3105.   IVertex = interface(IDispatch)
  3106.     ['{6A48110C-E531-11CF-A115-00A024158DAF}']
  3107.     function Get_Application_: IApplication; safecall;
  3108.     function Get_Calculated: IMSI_BOOL; safecall;
  3109.     procedure Set_Calculated(prop: IMSI_BOOL); safecall;
  3110.     function Get_Editable: IMSI_BOOL; safecall;
  3111.     procedure Set_Editable(prop: IMSI_BOOL); safecall;
  3112.     function Get_Index: Integer; safecall;
  3113.     function Get_Linkable: IMSI_BOOL; safecall;
  3114.     procedure Set_Linkable(prop: IMSI_BOOL); safecall;
  3115.     function Get_Parent: IDispatch; safecall;
  3116.     function Get_PenDown: IMSI_BOOL; safecall;
  3117.     procedure Set_PenDown(prop: IMSI_BOOL); safecall;
  3118.     function Get_Selectable: IMSI_BOOL; safecall;
  3119.     procedure Set_Selectable(prop: IMSI_BOOL); safecall;
  3120.     function Get_Snappable: IMSI_BOOL; safecall;
  3121.     procedure Set_Snappable(prop: IMSI_BOOL); safecall;
  3122.     function Get_X: Double; safecall;
  3123.     procedure Set_X(prop: Double); safecall;
  3124.     function Get_Y: Double; safecall;
  3125.     procedure Set_Y(prop: Double); safecall;
  3126.     function Get_Z: Double; safecall;
  3127.     procedure Set_Z(prop: Double); safecall;
  3128.     function Get__Handle: Integer; safecall;
  3129.     procedure Delete; safecall;
  3130.     function Duplicate: IVertex; safecall;
  3131.     property Application_: IApplication read Get_Application_;
  3132.     property Calculated: IMSI_BOOL read Get_Calculated write Set_Calculated;
  3133.     property Editable: IMSI_BOOL read Get_Editable write Set_Editable;
  3134.     property Index: Integer read Get_Index;
  3135.     property Linkable: IMSI_BOOL read Get_Linkable write Set_Linkable;
  3136.     property Parent: IDispatch read Get_Parent;
  3137.     property PenDown: IMSI_BOOL read Get_PenDown write Set_PenDown;
  3138.     property Selectable: IMSI_BOOL read Get_Selectable write Set_Selectable;
  3139.     property Snappable: IMSI_BOOL read Get_Snappable write Set_Snappable;
  3140.     property X: Double read Get_X write Set_X;
  3141.     property Y: Double read Get_Y write Set_Y;
  3142.     property Z: Double read Get_Z write Set_Z;
  3143.     property _Handle: Integer read Get__Handle;
  3144.   end;
  3145.  
  3146. // *********************************************************************//
  3147. // DispIntf:  IVertexDisp
  3148. // Flags:     (4416) Dual OleAutomation Dispatchable
  3149. // GUID:      {6A48110C-E531-11CF-A115-00A024158DAF}
  3150. // *********************************************************************//
  3151.   IVertexDisp = dispinterface
  3152.     ['{6A48110C-E531-11CF-A115-00A024158DAF}']
  3153.     property Application_: IApplication readonly dispid 1610743808;
  3154.     property Calculated: IMSI_BOOL dispid 1610743809;
  3155.     property Editable: IMSI_BOOL dispid 1610743811;
  3156.     property Index: Integer readonly dispid 1610743813;
  3157.     property Linkable: IMSI_BOOL dispid 1610743814;
  3158.     property Parent: IDispatch readonly dispid 1610743816;
  3159.     property PenDown: IMSI_BOOL dispid 1610743817;
  3160.     property Selectable: IMSI_BOOL dispid 1610743819;
  3161.     property Snappable: IMSI_BOOL dispid 1610743821;
  3162.     property X: Double dispid 1610743823;
  3163.     property Y: Double dispid 1610743825;
  3164.     property Z: Double dispid 1610743827;
  3165.     property _Handle: Integer readonly dispid 1610743829;
  3166.     procedure Delete; dispid 1610743830;
  3167.     function Duplicate: IVertex; dispid 1610743831;
  3168.   end;
  3169.  
  3170. // *********************************************************************//
  3171. // Interface: Block
  3172. // Flags:     (4416) Dual OleAutomation Dispatchable
  3173. // GUID:      {6A481120-E531-11CF-A115-00A024158DAF}
  3174. // *********************************************************************//
  3175.   Block = interface(IDispatch)
  3176.     ['{6A481120-E531-11CF-A115-00A024158DAF}']
  3177.     function Get_Anchor: IVertex; safecall;
  3178.     procedure Set_Anchor(const prop: IVertex); safecall;
  3179.     function Get_Application_: IApplication; safecall;
  3180.     function Get_Drawing: IDrawing; safecall;
  3181.     function Get_Graphics: Graphics; safecall;
  3182.     function Get_Index: Integer; safecall;
  3183.     function Get_Name: WideString; safecall;
  3184.     function Get_Parent: IDispatch; safecall;
  3185.     function Get__TableEntryID: Integer; safecall;
  3186.     procedure Delete; safecall;
  3187.     function Duplicate(const Name: WideString): Block; safecall;
  3188.     function Get_XRef: IMSI_BOOL; safecall;
  3189.     procedure Set_XRefPath(const prop: WideString); safecall;
  3190.     function Get_XRefPath: WideString; safecall;
  3191.     property Anchor: IVertex read Get_Anchor write Set_Anchor;
  3192.     property Application_: IApplication read Get_Application_;
  3193.     property Drawing: IDrawing read Get_Drawing;
  3194.     property Graphics: Graphics read Get_Graphics;
  3195.     property Index: Integer read Get_Index;
  3196.     property Name: WideString read Get_Name;
  3197.     property Parent: IDispatch read Get_Parent;
  3198.     property _TableEntryID: Integer read Get__TableEntryID;
  3199.     property XRef: IMSI_BOOL read Get_XRef;
  3200.     property XRefPath: WideString read Get_XRefPath write Set_XRefPath;
  3201.   end;
  3202.  
  3203. // *********************************************************************//
  3204. // DispIntf:  BlockDisp
  3205. // Flags:     (4416) Dual OleAutomation Dispatchable
  3206. // GUID:      {6A481120-E531-11CF-A115-00A024158DAF}
  3207. // *********************************************************************//
  3208.   BlockDisp = dispinterface
  3209.     ['{6A481120-E531-11CF-A115-00A024158DAF}']
  3210.     property Anchor: IVertex dispid 1610743808;
  3211.     property Application_: IApplication readonly dispid 1610743810;
  3212.     property Drawing: IDrawing readonly dispid 1610743811;
  3213.     property Graphics: Graphics readonly dispid 0;
  3214.     property Index: Integer readonly dispid 1610743813;
  3215.     property Name: WideString readonly dispid 1610743814;
  3216.     property Parent: IDispatch readonly dispid 1610743815;
  3217.     property _TableEntryID: Integer readonly dispid 1610743816;
  3218.     procedure Delete; dispid 1610743817;
  3219.     function Duplicate(const Name: WideString): Block; dispid 1610743818;
  3220.     property XRef: IMSI_BOOL readonly dispid 1610743819;
  3221.     property XRefPath: WideString dispid 1610743820;
  3222.   end;
  3223.  
  3224. // *********************************************************************//
  3225. // Interface: GraphicSet
  3226. // Flags:     (4416) Dual OleAutomation Dispatchable
  3227. // GUID:      {6A481134-E531-11CF-A115-00A024158DAF}
  3228. // *********************************************************************//
  3229.   GraphicSet = interface(IDispatch)
  3230.     ['{6A481134-E531-11CF-A115-00A024158DAF}']
  3231.     function Get_Application_: IApplication; safecall;
  3232.     function Get_Count: Integer; safecall;
  3233.     function Get_Drawing: IDrawing; safecall;
  3234.     function Get_Item(var Index: OleVariant): IGraphic; safecall;
  3235.     function Get_Parent: IDispatch; safecall;
  3236.     function Get__NewEnum: IUnknown; safecall;
  3237.     procedure ApplyStyle(const StyleToApply: Style); safecall;
  3238.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  3239.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  3240.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  3241.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  3242.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  3243.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); safecall;
  3244.     function AddHatch: IGraphic; safecall;
  3245.     function CreateStyle(const BasedOn: Style): Style; safecall;
  3246.     function AddObject(var ClassType: OleVariant; var Filename: OleVariant; 
  3247.                        var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  3248.                        var IconFileName: OleVariant; var IconIndex: OleVariant; 
  3249.                        var IconLabel: OleVariant; var X: OleVariant; var Y: OleVariant; 
  3250.                        var Z: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  3251.                        var Anchor: OleVariant): IGraphic; safecall;
  3252.     function AddLineTanArcPoint(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3253.                                 length: Double): IGraphic; safecall;
  3254.     function AddLineTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3255.     function AddLineTanFromArc(const TangentFrom: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3256.     function AddLineTan2Arcs(const Arc1: IGraphic; const Arc2: IGraphic; CounterClockwise: IMSI_BOOL): IGraphic; safecall;
  3257.     function AddDimensionLeader(X0: Double; Y0: Double; Z0: Double; const Text: WideString): IGraphic; safecall;
  3258.     function AddDimensionBaseline(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3259.     function AddDimensionContinuous(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3260.     function AddDoubleLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3261.                                  Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  3262.     function AddDoubleLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3263.                                   Z1: Double; Sides: Integer; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  3264.     function AddDoubleLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3265.                                     Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  3266.     function AddDoubleLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  3267.                                            Y1: Double; Z1: Double; Angle: Double; 
  3268.                                            var DoubleLineOffset: OleVariant): IGraphic; safecall;
  3269.     function AddDoubleLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3270.                                         X1: Double; Y1: Double; Z1: Double; 
  3271.                                         var DoubleLineOffset: OleVariant): IGraphic; safecall;
  3272.     function AddDoubleLineMultiline(X0: Double; Y0: Double; Z0: Double; 
  3273.                                     var DoubleLineOffset: OleVariant): IGraphic; safecall;
  3274.     function AddDoubleLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double; 
  3275.                                            var DoubleLineOffset: OleVariant): IGraphic; safecall;
  3276.     function AddDoubleLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3277.                                    var DoubleLineOffset: OleVariant): IGraphic; safecall;
  3278.     function AddCircleTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3279.                                X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  3280.     function AddCircleTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3281.                                 X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  3282.     function AddCircleTan3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic): IGraphic; safecall;
  3283.     function AddArcTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3284.                             X1: Double; Y1: Double; Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  3285.     function AddArcTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3286.                              X1: Double; Y1: Double; Z1: Double; StartAngle: Double; 
  3287.                              EndAngle: Double): IGraphic; safecall;
  3288.     function AddArcTanTo3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic; 
  3289.                               StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  3290.     function AddDimensionHorizontal(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3291.                                     Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  3292.     function AddDimensionVertical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3293.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  3294.     function AddDimensionParallel(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3295.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  3296.     function AddDimensionRotated(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3297.                                  Z1: Double; X2: Double; Y2: Double; Z2: Double; X3: Double; 
  3298.                                  Y3: Double; Z3: Double; X4: Double; Y4: Double; Z4: Double): IGraphic; safecall;
  3299.     function AddDimensionDatum(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3300.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  3301.     function AddDimensionAngular(const Line1: IGraphic; const Line2: IGraphic; X0: Double; 
  3302.                                  Y0: Double; Z0: Double): IGraphic; safecall;
  3303.     function AddDimensionRadius(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3304.     function AddDimensionDiameter(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3305.     function Add(var GraphicType: OleVariant; var RegenMethod: OleVariant; var Inherit: OleVariant; 
  3306.                  var Style: OleVariant; var Before: OleVariant; var After: OleVariant): IGraphic; safecall;
  3307.     procedure AddGraphic(const Graphic: IGraphic; var Before: OleVariant; var After: OleVariant); safecall;
  3308.     function CalcBoundingBox(var Transform: OleVariant): BoundingBox; safecall;
  3309.     procedure Clear(var CosmeticOnly: OleVariant); safecall;
  3310.     procedure ClearConstruction; safecall;
  3311.     procedure Copy; safecall;
  3312.     procedure Cut; safecall;
  3313.     procedure Draw(var View: OleVariant); safecall;
  3314.     function Remove(var Index: OleVariant): IGraphic; safecall;
  3315.     procedure Select; safecall;
  3316.     procedure Unselect; safecall;
  3317.     function AddConstructionAngularLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3318.                                         Z1: Double): IGraphic; safecall;
  3319.     function AddConstructionHorizontalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3320.     function AddConstructionVerticalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3321.     function AddConstructionCenterAndPointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  3322.                                                  Y1: Double; Z1: Double): IGraphic; safecall;
  3323.     function AddConstructionDoublePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  3324.                                               Y1: Double; Z1: Double): IGraphic; safecall;
  3325.     function AddConstructionTriplePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  3326.                                               Y1: Double; Z1: Double; X2: Double; Y2: Double; 
  3327.                                               Z2: Double): IGraphic; safecall;
  3328.     function AddDot(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3329.     function AddStar(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3330.     function AddSquare(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3331.     function AddCross(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3332.     function AddCircle(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3333.     function AddLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  3334.     function AddLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  3335.                             nsides: Integer): IGraphic; safecall;
  3336.     function AddLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  3337.     function AddLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3338.                                      Z1: Double; Angle: Double): IGraphic; safecall;
  3339.     function AddLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3340.                                   X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  3341.     function AddLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3342.     function AddLineMultiline(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3343.     function AddLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3344.     function AddCurveBezier(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3345.     function AddCurveSpline(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  3346.     function AddCircleCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3347.                                      Z1: Double): IGraphic; safecall;
  3348.     function AddCircleDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3349.                                   Z1: Double): IGraphic; safecall;
  3350.     function AddCircleTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3351.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  3352.     function AddEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  3353.     function AddEllipseRotatedEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3354.                                       Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  3355.     function AddEllipseFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3356.                                   Z1: Double; XToYRatio: Double): IGraphic; safecall;
  3357.     function AddArcCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3358.                                   Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  3359.     function AddArcDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3360.                                Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  3361.     function AddArcTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3362.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  3363.     function AddArcElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3364.                               Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  3365.     function AddArcRotatedElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3366.                                      Z1: Double; X2: Double; Y2: Double; Z2: Double; 
  3367.                                      StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  3368.     function AddArcEllipticalFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3369.                                         Z1: Double; XToYRatio: Double; StartAngle: Double; 
  3370.                                         EndAngle: Double): IGraphic; safecall;
  3371.     function AddText(const Text: WideString; X0: Double; Y0: Double; Z0: Double; Height: Double; 
  3372.                      var Angle: OleVariant; var Width: OleVariant; var Offset: OleVariant; 
  3373.                      var Justification: OleVariant): IGraphic; safecall;
  3374.     function CreateBlock(const Name: WideString; var XRef: OleVariant; var YRef: OleVariant; 
  3375.                          var ZRef: OleVariant; var CopyGraphics: OleVariant; 
  3376.                          var InsertBlock: OleVariant; var Insert: OleVariant): Block; safecall;
  3377.     function AddBlockInsertion(var Block: OleVariant; var X0: OleVariant; var Y0: OleVariant; 
  3378.                                var Z0: OleVariant; var XScale: OleVariant; var YScale: OleVariant; 
  3379.                                var ZScale: OleVariant; var Angle: OleVariant): IGraphic; safecall;
  3380.     function AddGroup(var Name: OleVariant; var Copy: OleVariant): IGraphic; safecall;
  3381.     function Explode: GraphicSet; safecall;
  3382.     function LinearCopyAbsolute(X: Double; Y: Double; Z: Double; Copies: Integer; 
  3383.                                 var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  3384.                                 var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  3385.     function LinearCopyRelative(X: Double; Y: Double; Z: Double; Copies: Integer; 
  3386.                                 var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  3387.     function LinearCopyAngle(length: Double; Angle: Double; Copies: Integer; var Fit: OleVariant; 
  3388.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  3389.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  3390.     function RadialCopyAbsolute(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3391.                                 Z1: Double; Copies: Integer; var Fit: OleVariant; 
  3392.                                 var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  3393.                                 var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  3394.     function RadialCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; RotationAngle: Double; 
  3395.                              Copies: Integer; var Fit: OleVariant; var XRef: OleVariant; 
  3396.                              var YRef: OleVariant; var ZRef: OleVariant; var Workplane: OleVariant; 
  3397.                              var Matrix: OleVariant): GraphicSet; safecall;
  3398.     function ArrayCopyAbsolute(X: Double; Y: Double; Z: Double; Rows: Integer; Columns: Integer; 
  3399.                                var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  3400.                                var ZRef: OleVariant; var Workplane: OleVariant; 
  3401.                                var Matrix: OleVariant): GraphicSet; safecall;
  3402.     function ArrayCopyRelative(U: Double; V: Double; Rows: Integer; Columns: Integer; 
  3403.                                var Fit: OleVariant; var Workplane: OleVariant; 
  3404.                                var Matrix: OleVariant): GraphicSet; safecall;
  3405.     function MirrorCopyLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  3406.                             var Copy: OleVariant; var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  3407.     function MirrorCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; var Copy: OleVariant; 
  3408.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  3409.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  3410.     function Scale(XScale: Double; YScale: Double; ZScale: Double; var XRef: OleVariant; 
  3411.                    var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  3412.     function RotateAxis(Angle: Double; var XAxis: OleVariant; var YAxis: OleVariant; 
  3413.                         var ZAxis: OleVariant; var X: OleVariant; var Y: OleVariant; 
  3414.                         var Z: OleVariant): IMatrix; safecall;
  3415.     function RotateAbsolute(var XTo: OleVariant; var YTo: OleVariant; var ZTo: OleVariant; 
  3416.                             var XFrom: OleVariant; var YFrom: OleVariant; var ZFrom: OleVariant; 
  3417.                             var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  3418.     function MoveAbsolute(X: Double; Y: Double; Z: Double; var XRef: OleVariant; 
  3419.                           var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  3420.     function MoveRelative(X: Double; Y: Double; Z: Double): IMatrix; safecall;
  3421.     procedure Transform(const Transform: IMatrix); safecall;
  3422.     procedure Align(AlignType: ImsiAlignType); safecall;
  3423.     procedure AlignAlongLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double); safecall;
  3424.     function _FindIndex(g: Integer): Integer; safecall;
  3425.     function QuerySet(const Query: WideString): GraphicSet; safecall;
  3426.     function AddPolys(Type_: ImsiPolyType; var Coords: OleVariant): GraphicSet; safecall;
  3427.     procedure CreateDragOutline(var Coords: OleVariant); safecall;
  3428.     function AddPolylines(NumberOfPolylines: Integer; var Coords: OleVariant; Closed: IMSI_BOOL): GraphicSet; safecall;
  3429.     function GraphicFromID(ID: Integer): IGraphic; safecall;
  3430.     function AddAttributeDefinition(const Tag: WideString; X0: Double; Y0: Double; Z0: Double; 
  3431.                                     Height: Double; var Angle: OleVariant; var Width: OleVariant; 
  3432.                                     var Offset: OleVariant; var Justification: OleVariant; 
  3433.                                     var AttFlags: OleVariant; var Default: OleVariant; 
  3434.                                     var Prompt: OleVariant): IGraphic; safecall;
  3435.     function Get_Index: Integer; safecall;
  3436.     function Get_Name: WideString; safecall;
  3437.     procedure Delete; safecall;
  3438.     function Duplicate(const Name: WideString): GraphicSet; safecall;
  3439.     procedure SetForAll(var PropertyName: OleVariant; var prop: OleVariant); safecall;
  3440.     property Application_: IApplication read Get_Application_;
  3441.     property Count: Integer read Get_Count;
  3442.     property Drawing: IDrawing read Get_Drawing;
  3443.     property Item[var Index: OleVariant]: IGraphic read Get_Item;
  3444.     property Parent: IDispatch read Get_Parent;
  3445.     property _NewEnum: IUnknown read Get__NewEnum;
  3446.     property Index: Integer read Get_Index;
  3447.     property Name: WideString read Get_Name;
  3448.   end;
  3449.  
  3450. // *********************************************************************//
  3451. // DispIntf:  GraphicSetDisp
  3452. // Flags:     (4416) Dual OleAutomation Dispatchable
  3453. // GUID:      {6A481134-E531-11CF-A115-00A024158DAF}
  3454. // *********************************************************************//
  3455.   GraphicSetDisp = dispinterface
  3456.     ['{6A481134-E531-11CF-A115-00A024158DAF}']
  3457.     property Application_: IApplication readonly dispid 1610743808;
  3458.     property Count: Integer readonly dispid 1610743809;
  3459.     property Drawing: IDrawing readonly dispid 1610743810;
  3460.     property Item[var Index: OleVariant]: IGraphic readonly dispid 0; default;
  3461.     property Parent: IDispatch readonly dispid 1610743812;
  3462.     property _NewEnum: IUnknown readonly dispid -4;
  3463.     procedure ApplyStyle(const StyleToApply: Style); dispid 1610743814;
  3464.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  3465.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  3466.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  3467.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  3468.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  3469.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); dispid 1610743815;
  3470.     function AddHatch: IGraphic; dispid 1610743816;
  3471.     function CreateStyle(const BasedOn: Style): Style; dispid 1610743817;
  3472.     function AddObject(var ClassType: OleVariant; var Filename: OleVariant; 
  3473.                        var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  3474.                        var IconFileName: OleVariant; var IconIndex: OleVariant; 
  3475.                        var IconLabel: OleVariant; var X: OleVariant; var Y: OleVariant; 
  3476.                        var Z: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  3477.                        var Anchor: OleVariant): IGraphic; dispid 1610743818;
  3478.     function AddLineTanArcPoint(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3479.                                 length: Double): IGraphic; dispid 1610743819;
  3480.     function AddLineTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743820;
  3481.     function AddLineTanFromArc(const TangentFrom: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743821;
  3482.     function AddLineTan2Arcs(const Arc1: IGraphic; const Arc2: IGraphic; CounterClockwise: IMSI_BOOL): IGraphic; dispid 1610743822;
  3483.     function AddDimensionLeader(X0: Double; Y0: Double; Z0: Double; const Text: WideString): IGraphic; dispid 1610743823;
  3484.     function AddDimensionBaseline(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743824;
  3485.     function AddDimensionContinuous(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743825;
  3486.     function AddDoubleLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3487.                                  Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743826;
  3488.     function AddDoubleLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3489.                                   Z1: Double; Sides: Integer; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743827;
  3490.     function AddDoubleLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3491.                                     Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743828;
  3492.     function AddDoubleLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  3493.                                            Y1: Double; Z1: Double; Angle: Double; 
  3494.                                            var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743829;
  3495.     function AddDoubleLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3496.                                         X1: Double; Y1: Double; Z1: Double; 
  3497.                                         var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743830;
  3498.     function AddDoubleLineMultiline(X0: Double; Y0: Double; Z0: Double; 
  3499.                                     var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743831;
  3500.     function AddDoubleLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double; 
  3501.                                            var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743832;
  3502.     function AddDoubleLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3503.                                    var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743833;
  3504.     function AddCircleTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3505.                                X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743834;
  3506.     function AddCircleTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3507.                                 X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743835;
  3508.     function AddCircleTan3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic): IGraphic; dispid 1610743836;
  3509.     function AddArcTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3510.                             X1: Double; Y1: Double; Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743837;
  3511.     function AddArcTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3512.                              X1: Double; Y1: Double; Z1: Double; StartAngle: Double; 
  3513.                              EndAngle: Double): IGraphic; dispid 1610743838;
  3514.     function AddArcTanTo3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic; 
  3515.                               StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743839;
  3516.     function AddDimensionHorizontal(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3517.                                     Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743840;
  3518.     function AddDimensionVertical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3519.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743841;
  3520.     function AddDimensionParallel(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3521.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743842;
  3522.     function AddDimensionRotated(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3523.                                  Z1: Double; X2: Double; Y2: Double; Z2: Double; X3: Double; 
  3524.                                  Y3: Double; Z3: Double; X4: Double; Y4: Double; Z4: Double): IGraphic; dispid 1610743843;
  3525.     function AddDimensionDatum(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3526.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743844;
  3527.     function AddDimensionAngular(const Line1: IGraphic; const Line2: IGraphic; X0: Double; 
  3528.                                  Y0: Double; Z0: Double): IGraphic; dispid 1610743845;
  3529.     function AddDimensionRadius(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743846;
  3530.     function AddDimensionDiameter(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743847;
  3531.     function Add(var GraphicType: OleVariant; var RegenMethod: OleVariant; var Inherit: OleVariant; 
  3532.                  var Style: OleVariant; var Before: OleVariant; var After: OleVariant): IGraphic; dispid 1610743848;
  3533.     procedure AddGraphic(const Graphic: IGraphic; var Before: OleVariant; var After: OleVariant); dispid 1610743849;
  3534.     function CalcBoundingBox(var Transform: OleVariant): BoundingBox; dispid 1610743850;
  3535.     procedure Clear(var CosmeticOnly: OleVariant); dispid 1610743851;
  3536.     procedure ClearConstruction; dispid 1610743852;
  3537.     procedure Copy; dispid 1610743853;
  3538.     procedure Cut; dispid 1610743854;
  3539.     procedure Draw(var View: OleVariant); dispid 1610743855;
  3540.     function Remove(var Index: OleVariant): IGraphic; dispid 1610743856;
  3541.     procedure Select; dispid 1610743857;
  3542.     procedure Unselect; dispid 1610743858;
  3543.     function AddConstructionAngularLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3544.                                         Z1: Double): IGraphic; dispid 1610743859;
  3545.     function AddConstructionHorizontalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743860;
  3546.     function AddConstructionVerticalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743861;
  3547.     function AddConstructionCenterAndPointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  3548.                                                  Y1: Double; Z1: Double): IGraphic; dispid 1610743862;
  3549.     function AddConstructionDoublePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  3550.                                               Y1: Double; Z1: Double): IGraphic; dispid 1610743863;
  3551.     function AddConstructionTriplePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  3552.                                               Y1: Double; Z1: Double; X2: Double; Y2: Double; 
  3553.                                               Z2: Double): IGraphic; dispid 1610743864;
  3554.     function AddDot(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743865;
  3555.     function AddStar(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743866;
  3556.     function AddSquare(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743867;
  3557.     function AddCross(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743868;
  3558.     function AddCircle(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743869;
  3559.     function AddLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743870;
  3560.     function AddLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  3561.                             nsides: Integer): IGraphic; dispid 1610743871;
  3562.     function AddLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743872;
  3563.     function AddLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3564.                                      Z1: Double; Angle: Double): IGraphic; dispid 1610743873;
  3565.     function AddLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  3566.                                   X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743874;
  3567.     function AddLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743875;
  3568.     function AddLineMultiline(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743876;
  3569.     function AddLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743877;
  3570.     function AddCurveBezier(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743878;
  3571.     function AddCurveSpline(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743879;
  3572.     function AddCircleCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3573.                                      Z1: Double): IGraphic; dispid 1610743880;
  3574.     function AddCircleDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3575.                                   Z1: Double): IGraphic; dispid 1610743881;
  3576.     function AddCircleTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3577.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743882;
  3578.     function AddEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743883;
  3579.     function AddEllipseRotatedEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3580.                                       Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743884;
  3581.     function AddEllipseFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3582.                                   Z1: Double; XToYRatio: Double): IGraphic; dispid 1610743885;
  3583.     function AddArcCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3584.                                   Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743886;
  3585.     function AddArcDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3586.                                Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743887;
  3587.     function AddArcTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3588.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743888;
  3589.     function AddArcElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3590.                               Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743889;
  3591.     function AddArcRotatedElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3592.                                      Z1: Double; X2: Double; Y2: Double; Z2: Double; 
  3593.                                      StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743890;
  3594.     function AddArcEllipticalFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3595.                                         Z1: Double; XToYRatio: Double; StartAngle: Double; 
  3596.                                         EndAngle: Double): IGraphic; dispid 1610743891;
  3597.     function AddText(const Text: WideString; X0: Double; Y0: Double; Z0: Double; Height: Double; 
  3598.                      var Angle: OleVariant; var Width: OleVariant; var Offset: OleVariant; 
  3599.                      var Justification: OleVariant): IGraphic; dispid 1610743892;
  3600.     function CreateBlock(const Name: WideString; var XRef: OleVariant; var YRef: OleVariant; 
  3601.                          var ZRef: OleVariant; var CopyGraphics: OleVariant; 
  3602.                          var InsertBlock: OleVariant; var Insert: OleVariant): Block; dispid 1610743893;
  3603.     function AddBlockInsertion(var Block: OleVariant; var X0: OleVariant; var Y0: OleVariant; 
  3604.                                var Z0: OleVariant; var XScale: OleVariant; var YScale: OleVariant; 
  3605.                                var ZScale: OleVariant; var Angle: OleVariant): IGraphic; dispid 1610743894;
  3606.     function AddGroup(var Name: OleVariant; var Copy: OleVariant): IGraphic; dispid 1610743895;
  3607.     function Explode: GraphicSet; dispid 1610743896;
  3608.     function LinearCopyAbsolute(X: Double; Y: Double; Z: Double; Copies: Integer; 
  3609.                                 var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  3610.                                 var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743897;
  3611.     function LinearCopyRelative(X: Double; Y: Double; Z: Double; Copies: Integer; 
  3612.                                 var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743898;
  3613.     function LinearCopyAngle(length: Double; Angle: Double; Copies: Integer; var Fit: OleVariant; 
  3614.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  3615.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743899;
  3616.     function RadialCopyAbsolute(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  3617.                                 Z1: Double; Copies: Integer; var Fit: OleVariant; 
  3618.                                 var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  3619.                                 var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743900;
  3620.     function RadialCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; RotationAngle: Double; 
  3621.                              Copies: Integer; var Fit: OleVariant; var XRef: OleVariant; 
  3622.                              var YRef: OleVariant; var ZRef: OleVariant; var Workplane: OleVariant; 
  3623.                              var Matrix: OleVariant): GraphicSet; dispid 1610743901;
  3624.     function ArrayCopyAbsolute(X: Double; Y: Double; Z: Double; Rows: Integer; Columns: Integer; 
  3625.                                var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  3626.                                var ZRef: OleVariant; var Workplane: OleVariant; 
  3627.                                var Matrix: OleVariant): GraphicSet; dispid 1610743902;
  3628.     function ArrayCopyRelative(U: Double; V: Double; Rows: Integer; Columns: Integer; 
  3629.                                var Fit: OleVariant; var Workplane: OleVariant; 
  3630.                                var Matrix: OleVariant): GraphicSet; dispid 1610743903;
  3631.     function MirrorCopyLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  3632.                             var Copy: OleVariant; var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743904;
  3633.     function MirrorCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; var Copy: OleVariant; 
  3634.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  3635.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743905;
  3636.     function Scale(XScale: Double; YScale: Double; ZScale: Double; var XRef: OleVariant; 
  3637.                    var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743906;
  3638.     function RotateAxis(Angle: Double; var XAxis: OleVariant; var YAxis: OleVariant; 
  3639.                         var ZAxis: OleVariant; var X: OleVariant; var Y: OleVariant; 
  3640.                         var Z: OleVariant): IMatrix; dispid 1610743907;
  3641.     function RotateAbsolute(var XTo: OleVariant; var YTo: OleVariant; var ZTo: OleVariant; 
  3642.                             var XFrom: OleVariant; var YFrom: OleVariant; var ZFrom: OleVariant; 
  3643.                             var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743908;
  3644.     function MoveAbsolute(X: Double; Y: Double; Z: Double; var XRef: OleVariant; 
  3645.                           var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743909;
  3646.     function MoveRelative(X: Double; Y: Double; Z: Double): IMatrix; dispid 1610743910;
  3647.     procedure Transform(const Transform: IMatrix); dispid 1610743911;
  3648.     procedure Align(AlignType: ImsiAlignType); dispid 1610743912;
  3649.     procedure AlignAlongLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double); dispid 1610743913;
  3650.     function _FindIndex(g: Integer): Integer; dispid 1610743914;
  3651.     function QuerySet(const Query: WideString): GraphicSet; dispid 1610743915;
  3652.     function AddPolys(Type_: ImsiPolyType; var Coords: OleVariant): GraphicSet; dispid 1610743916;
  3653.     procedure CreateDragOutline(var Coords: OleVariant); dispid 1610743917;
  3654.     function AddPolylines(NumberOfPolylines: Integer; var Coords: OleVariant; Closed: IMSI_BOOL): GraphicSet; dispid 1610743918;
  3655.     function GraphicFromID(ID: Integer): IGraphic; dispid 1610743919;
  3656.     function AddAttributeDefinition(const Tag: WideString; X0: Double; Y0: Double; Z0: Double; 
  3657.                                     Height: Double; var Angle: OleVariant; var Width: OleVariant; 
  3658.                                     var Offset: OleVariant; var Justification: OleVariant; 
  3659.                                     var AttFlags: OleVariant; var Default: OleVariant; 
  3660.                                     var Prompt: OleVariant): IGraphic; dispid 1610743920;
  3661.     property Index: Integer readonly dispid 1610743921;
  3662.     property Name: WideString readonly dispid 1610743922;
  3663.     procedure Delete; dispid 1610743923;
  3664.     function Duplicate(const Name: WideString): GraphicSet; dispid 1610743924;
  3665.     procedure SetForAll(var PropertyName: OleVariant; var prop: OleVariant); dispid 1610743925;
  3666.   end;
  3667.  
  3668. // *********************************************************************//
  3669. // Interface: IMatrix
  3670. // Flags:     (4416) Dual OleAutomation Dispatchable
  3671. // GUID:      {6A481137-E531-11CF-A115-00A024158DAF}
  3672. // *********************************************************************//
  3673.   IMatrix = interface(IDispatch)
  3674.     ['{6A481137-E531-11CF-A115-00A024158DAF}']
  3675.     function GetEntry(i: SYSINT; j: SYSINT): Double; safecall;
  3676.     procedure SetEntry(i: SYSINT; j: SYSINT; e: Double); safecall;
  3677.     procedure GetEntries(out e00: Double; out e01: Double; out e02: Double; out e03: Double; 
  3678.                          out e10: Double; out e11: Double; out e12: Double; out e13: Double; 
  3679.                          out e20: Double; out e21: Double; out e22: Double; out e23: Double; 
  3680.                          out e30: Double; out e31: Double; out e32: Double; out e33: Double); safecall;
  3681.     procedure SetEntries(e00: Double; e01: Double; e02: Double; e03: Double; e10: Double; 
  3682.                          e11: Double; e12: Double; e13: Double; e20: Double; e21: Double; 
  3683.                          e22: Double; e23: Double; e30: Double; e31: Double; e32: Double; 
  3684.                          e33: Double); safecall;
  3685.     function Get__Handle: Integer; safecall;
  3686.     function Duplicate: IMatrix; safecall;
  3687.     procedure GetArray(var ArrayEntries: OleVariant); safecall;
  3688.     procedure Identity; safecall;
  3689.     procedure Invert; safecall;
  3690.     procedure Rotate(XAxis: Double; YAxis: Double; ZAxis: Double; Angle: Double; 
  3691.                      var XCenter: OleVariant; var YCenter: OleVariant; var ZCenter: OleVariant; 
  3692.                      var Concat: OleVariant); safecall;
  3693.     procedure Scale(XScale: Double; YScale: Double; ZScale: Double; var XCenter: OleVariant; 
  3694.                     var YCenter: OleVariant; var ZCenter: OleVariant; var Concat: OleVariant); safecall;
  3695.     procedure SetArray(var ArrayEntries: OleVariant); safecall;
  3696.     procedure Translate(X: Double; Y: Double; Z: Double; var Concat: OleVariant); safecall;
  3697.     procedure Transpose; safecall;
  3698.     procedure TranslateScaleAndRotateZ(X: Double; Y: Double; Z: Double; XScale: Double; 
  3699.                                        YScale: Double; ZScale: Double; Angle: Double; 
  3700.                                        var XCenter: OleVariant; var YCenter: OleVariant; 
  3701.                                        var ZCenter: OleVariant; var Concat: OleVariant); safecall;
  3702.     function IsEqual(const pIDisp: IDispatch): IMSI_BOOL; safecall;
  3703.     property _Handle: Integer read Get__Handle;
  3704.   end;
  3705.  
  3706. // *********************************************************************//
  3707. // DispIntf:  IMatrixDisp
  3708. // Flags:     (4416) Dual OleAutomation Dispatchable
  3709. // GUID:      {6A481137-E531-11CF-A115-00A024158DAF}
  3710. // *********************************************************************//
  3711.   IMatrixDisp = dispinterface
  3712.     ['{6A481137-E531-11CF-A115-00A024158DAF}']
  3713.     function GetEntry(i: SYSINT; j: SYSINT): Double; dispid 1610743808;
  3714.     procedure SetEntry(i: SYSINT; j: SYSINT; e: Double); dispid 1610743809;
  3715.     procedure GetEntries(out e00: Double; out e01: Double; out e02: Double; out e03: Double; 
  3716.                          out e10: Double; out e11: Double; out e12: Double; out e13: Double; 
  3717.                          out e20: Double; out e21: Double; out e22: Double; out e23: Double; 
  3718.                          out e30: Double; out e31: Double; out e32: Double; out e33: Double); dispid 1610743810;
  3719.     procedure SetEntries(e00: Double; e01: Double; e02: Double; e03: Double; e10: Double; 
  3720.                          e11: Double; e12: Double; e13: Double; e20: Double; e21: Double; 
  3721.                          e22: Double; e23: Double; e30: Double; e31: Double; e32: Double; 
  3722.                          e33: Double); dispid 1610743811;
  3723.     property _Handle: Integer readonly dispid 1610743812;
  3724.     function Duplicate: IMatrix; dispid 1610743813;
  3725.     procedure GetArray(var ArrayEntries: OleVariant); dispid 1610743814;
  3726.     procedure Identity; dispid 1610743815;
  3727.     procedure Invert; dispid 1610743816;
  3728.     procedure Rotate(XAxis: Double; YAxis: Double; ZAxis: Double; Angle: Double; 
  3729.                      var XCenter: OleVariant; var YCenter: OleVariant; var ZCenter: OleVariant; 
  3730.                      var Concat: OleVariant); dispid 1610743817;
  3731.     procedure Scale(XScale: Double; YScale: Double; ZScale: Double; var XCenter: OleVariant; 
  3732.                     var YCenter: OleVariant; var ZCenter: OleVariant; var Concat: OleVariant); dispid 1610743818;
  3733.     procedure SetArray(var ArrayEntries: OleVariant); dispid 1610743819;
  3734.     procedure Translate(X: Double; Y: Double; Z: Double; var Concat: OleVariant); dispid 1610743820;
  3735.     procedure Transpose; dispid 1610743821;
  3736.     procedure TranslateScaleAndRotateZ(X: Double; Y: Double; Z: Double; XScale: Double; 
  3737.                                        YScale: Double; ZScale: Double; Angle: Double; 
  3738.                                        var XCenter: OleVariant; var YCenter: OleVariant; 
  3739.                                        var ZCenter: OleVariant; var Concat: OleVariant); dispid 1610743822;
  3740.     function IsEqual(const pIDisp: IDispatch): IMSI_BOOL; dispid 1610743823;
  3741.   end;
  3742.  
  3743. // *********************************************************************//
  3744. // Interface: LineStyle
  3745. // Flags:     (4416) Dual OleAutomation Dispatchable
  3746. // GUID:      {6A481117-E531-11CF-A115-00A024158DAF}
  3747. // *********************************************************************//
  3748.   LineStyle = interface(IDispatch)
  3749.     ['{6A481117-E531-11CF-A115-00A024158DAF}']
  3750.     function Get_Application_: IApplication; safecall;
  3751.     function Get_Description: WideString; safecall;
  3752.     procedure Set_Description(const prop: WideString); safecall;
  3753.     function Get_Drawing: IDrawing; safecall;
  3754.     function Get_Index: Integer; safecall;
  3755.     function Get_Name: WideString; safecall;
  3756.     function Get_Parent: IDispatch; safecall;
  3757.     function Get_PatternLength: Double; safecall;
  3758.     function Get__TableEntryID: Integer; safecall;
  3759.     procedure Delete; safecall;
  3760.     procedure SetDashes(var Dashes: OleVariant); safecall;
  3761.     procedure GetDashes(out Dashes: OleVariant); safecall;
  3762.     function Duplicate: LineStyle; safecall;
  3763.     property Application_: IApplication read Get_Application_;
  3764.     property Description: WideString read Get_Description write Set_Description;
  3765.     property Drawing: IDrawing read Get_Drawing;
  3766.     property Index: Integer read Get_Index;
  3767.     property Name: WideString read Get_Name;
  3768.     property Parent: IDispatch read Get_Parent;
  3769.     property PatternLength: Double read Get_PatternLength;
  3770.     property _TableEntryID: Integer read Get__TableEntryID;
  3771.   end;
  3772.  
  3773. // *********************************************************************//
  3774. // DispIntf:  LineStyleDisp
  3775. // Flags:     (4416) Dual OleAutomation Dispatchable
  3776. // GUID:      {6A481117-E531-11CF-A115-00A024158DAF}
  3777. // *********************************************************************//
  3778.   LineStyleDisp = dispinterface
  3779.     ['{6A481117-E531-11CF-A115-00A024158DAF}']
  3780.     property Application_: IApplication readonly dispid 1610743808;
  3781.     property Description: WideString dispid 1610743809;
  3782.     property Drawing: IDrawing readonly dispid 1610743811;
  3783.     property Index: Integer readonly dispid 1610743812;
  3784.     property Name: WideString readonly dispid 1610743813;
  3785.     property Parent: IDispatch readonly dispid 1610743814;
  3786.     property PatternLength: Double readonly dispid 1610743815;
  3787.     property _TableEntryID: Integer readonly dispid 1610743816;
  3788.     procedure Delete; dispid 1610743817;
  3789.     procedure SetDashes(var Dashes: OleVariant); dispid 1610743818;
  3790.     procedure GetDashes(out Dashes: OleVariant); dispid 1610743819;
  3791.     function Duplicate: LineStyle; dispid 1610743820;
  3792.   end;
  3793.  
  3794. // *********************************************************************//
  3795. // Interface: Vertices
  3796. // Flags:     (4416) Dual OleAutomation Dispatchable
  3797. // GUID:      {6A48110D-E531-11CF-A115-00A024158DAF}
  3798. // *********************************************************************//
  3799.   Vertices = interface(IDispatch)
  3800.     ['{6A48110D-E531-11CF-A115-00A024158DAF}']
  3801.     function Get_Application_: IApplication; safecall;
  3802.     function Get_Count: Integer; safecall;
  3803.     function Get_Item(var Index: OleVariant): IVertex; safecall;
  3804.     function Get_Parent: IDispatch; safecall;
  3805.     function Get__NewEnum: IUnknown; safecall;
  3806.     function Add(var X: OleVariant; var Y: OleVariant; var Z: OleVariant; var PenDown: OleVariant; 
  3807.                  var Selectable: OleVariant; var Snappable: OleVariant; var Editable: OleVariant; 
  3808.                  var Linkable: OleVariant; var Calculated: OleVariant; var Before: OleVariant; 
  3809.                  var After: OleVariant): IVertex; safecall;
  3810.     function AddClose(var PenDown: OleVariant; var Selectable: OleVariant; 
  3811.                       var Snappable: OleVariant; var Editable: OleVariant; 
  3812.                       var Linkable: OleVariant; var Calculated: OleVariant): IVertex; safecall;
  3813.     procedure AddVertex(const Vertex: IVertex; var Before: OleVariant; var After: OleVariant); safecall;
  3814.     procedure Clear(var Types: OleVariant); safecall;
  3815.     function Remove(var Index: OleVariant): IVertex; safecall;
  3816.     function _FindIndex(V: Integer): Integer; safecall;
  3817.     procedure Set_UseWorldCS(pbUseWorldCS: IMSI_BOOL); safecall;
  3818.     function Get_UseWorldCS: IMSI_BOOL; safecall;
  3819.     property Application_: IApplication read Get_Application_;
  3820.     property Count: Integer read Get_Count;
  3821.     property Item[var Index: OleVariant]: IVertex read Get_Item;
  3822.     property Parent: IDispatch read Get_Parent;
  3823.     property _NewEnum: IUnknown read Get__NewEnum;
  3824.     property UseWorldCS: IMSI_BOOL read Get_UseWorldCS write Set_UseWorldCS;
  3825.   end;
  3826.  
  3827. // *********************************************************************//
  3828. // DispIntf:  VerticesDisp
  3829. // Flags:     (4416) Dual OleAutomation Dispatchable
  3830. // GUID:      {6A48110D-E531-11CF-A115-00A024158DAF}
  3831. // *********************************************************************//
  3832.   VerticesDisp = dispinterface
  3833.     ['{6A48110D-E531-11CF-A115-00A024158DAF}']
  3834.     property Application_: IApplication readonly dispid 1610743808;
  3835.     property Count: Integer readonly dispid 1610743809;
  3836.     property Item[var Index: OleVariant]: IVertex readonly dispid 0; default;
  3837.     property Parent: IDispatch readonly dispid 1610743811;
  3838.     property _NewEnum: IUnknown readonly dispid -4;
  3839.     function Add(var X: OleVariant; var Y: OleVariant; var Z: OleVariant; var PenDown: OleVariant; 
  3840.                  var Selectable: OleVariant; var Snappable: OleVariant; var Editable: OleVariant; 
  3841.                  var Linkable: OleVariant; var Calculated: OleVariant; var Before: OleVariant; 
  3842.                  var After: OleVariant): IVertex; dispid 1610743813;
  3843.     function AddClose(var PenDown: OleVariant; var Selectable: OleVariant; 
  3844.                       var Snappable: OleVariant; var Editable: OleVariant; 
  3845.                       var Linkable: OleVariant; var Calculated: OleVariant): IVertex; dispid 1610743814;
  3846.     procedure AddVertex(const Vertex: IVertex; var Before: OleVariant; var After: OleVariant); dispid 1610743815;
  3847.     procedure Clear(var Types: OleVariant); dispid 1610743816;
  3848.     function Remove(var Index: OleVariant): IVertex; dispid 1610743817;
  3849.     function _FindIndex(V: Integer): Integer; dispid 1610743818;
  3850.     property UseWorldCS: IMSI_BOOL dispid 1610743819;
  3851.   end;
  3852.  
  3853. // *********************************************************************//
  3854. // Interface: RegenMethod
  3855. // Flags:     (4416) Dual OleAutomation Dispatchable
  3856. // GUID:      {6A481113-E531-11CF-A115-00A024158DAF}
  3857. // *********************************************************************//
  3858.   RegenMethod = interface(IDispatch)
  3859.     ['{6A481113-E531-11CF-A115-00A024158DAF}']
  3860.     function Get_Application_: IApplication; safecall;
  3861.     function Get_BasedOn: RegenMethod; safecall;
  3862.     function Get_Description: WideString; safecall;
  3863.     function Get_Detail: Smallint; safecall;
  3864.     procedure Set_Detail(prop: Smallint); safecall;
  3865.     function Get_Index: Integer; safecall;
  3866.     function Get_Name: WideString; safecall;
  3867.     function Get_Parent: IDispatch; safecall;
  3868.     function Get_Properties: Properties; safecall;
  3869.     function Get_PropertyPage(Index: Integer): WideString; safecall;
  3870.     function Get_PropertyPageCount: Integer; safecall;
  3871.     function Get_Type_: ImsiRegenMethodType; safecall;
  3872.     function Get_Wizard(Index: Integer): WideString; safecall;
  3873.     function Get_WizardCount: Integer; safecall;
  3874.     function Get__TableEntryID: Integer; safecall;
  3875.     procedure Delete; safecall;
  3876.     function RunPropertyPage(const Objects: Graphics; var Index: OleVariant): IMSI_BOOL; safecall;
  3877.     function RunWizard(const Objects: Graphics; var Name: OleVariant): IMSI_BOOL; safecall;
  3878.     property Application_: IApplication read Get_Application_;
  3879.     property BasedOn: RegenMethod read Get_BasedOn;
  3880.     property Description: WideString read Get_Description;
  3881.     property Detail: Smallint read Get_Detail write Set_Detail;
  3882.     property Index: Integer read Get_Index;
  3883.     property Name: WideString read Get_Name;
  3884.     property Parent: IDispatch read Get_Parent;
  3885.     property Properties: Properties read Get_Properties;
  3886.     property PropertyPage[Index: Integer]: WideString read Get_PropertyPage;
  3887.     property PropertyPageCount: Integer read Get_PropertyPageCount;
  3888.     property Type_: ImsiRegenMethodType read Get_Type_;
  3889.     property Wizard[Index: Integer]: WideString read Get_Wizard;
  3890.     property WizardCount: Integer read Get_WizardCount;
  3891.     property _TableEntryID: Integer read Get__TableEntryID;
  3892.   end;
  3893.  
  3894. // *********************************************************************//
  3895. // DispIntf:  RegenMethodDisp
  3896. // Flags:     (4416) Dual OleAutomation Dispatchable
  3897. // GUID:      {6A481113-E531-11CF-A115-00A024158DAF}
  3898. // *********************************************************************//
  3899.   RegenMethodDisp = dispinterface
  3900.     ['{6A481113-E531-11CF-A115-00A024158DAF}']
  3901.     property Application_: IApplication readonly dispid 1610743808;
  3902.     property BasedOn: RegenMethod readonly dispid 1610743809;
  3903.     property Description: WideString readonly dispid 1610743810;
  3904.     property Detail: Smallint dispid 1610743811;
  3905.     property Index: Integer readonly dispid 1610743813;
  3906.     property Name: WideString readonly dispid 1610743814;
  3907.     property Parent: IDispatch readonly dispid 1610743815;
  3908.     property Properties: Properties readonly dispid 1610743816;
  3909.     property PropertyPage[Index: Integer]: WideString readonly dispid 1610743817;
  3910.     property PropertyPageCount: Integer readonly dispid 1610743818;
  3911.     property Type_: ImsiRegenMethodType readonly dispid 1610743819;
  3912.     property Wizard[Index: Integer]: WideString readonly dispid 1610743820;
  3913.     property WizardCount: Integer readonly dispid 1610743821;
  3914.     property _TableEntryID: Integer readonly dispid 1610743822;
  3915.     procedure Delete; dispid 1610743823;
  3916.     function RunPropertyPage(const Objects: Graphics; var Index: OleVariant): IMSI_BOOL; dispid 1610743824;
  3917.     function RunWizard(const Objects: Graphics; var Name: OleVariant): IMSI_BOOL; dispid 1610743825;
  3918.   end;
  3919.  
  3920. // *********************************************************************//
  3921. // Interface: KeyBindings
  3922. // Flags:     (4416) Dual OleAutomation Dispatchable
  3923. // GUID:      {6A481127-E531-11CF-A115-00A024158DAF}
  3924. // *********************************************************************//
  3925.   KeyBindings = interface(IDispatch)
  3926.     ['{6A481127-E531-11CF-A115-00A024158DAF}']
  3927.     function Get_Application_: IApplication; safecall;
  3928.     function Get_Count: Integer; safecall;
  3929.     function Get_Item(var Index: OleVariant): KeyBinding; safecall;
  3930.     function Get_Parent: IDispatch; safecall;
  3931.     function Get__NewEnum: IUnknown; safecall;
  3932.     function Add(KeyCategory: ImsiKeyCategory; const Command: WideString; KeyCode: Integer; 
  3933.                  var KeyCode2: OleVariant; var CommandParameter: OleVariant): KeyBinding; safecall;
  3934.     procedure ClearAll; safecall;
  3935.     procedure Open(const Filename: WideString); safecall;
  3936.     function Key(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; safecall;
  3937.     procedure Save(const Filename: WideString); safecall;
  3938.     property Application_: IApplication read Get_Application_;
  3939.     property Count: Integer read Get_Count;
  3940.     property Item[var Index: OleVariant]: KeyBinding read Get_Item;
  3941.     property Parent: IDispatch read Get_Parent;
  3942.     property _NewEnum: IUnknown read Get__NewEnum;
  3943.   end;
  3944.  
  3945. // *********************************************************************//
  3946. // DispIntf:  KeyBindingsDisp
  3947. // Flags:     (4416) Dual OleAutomation Dispatchable
  3948. // GUID:      {6A481127-E531-11CF-A115-00A024158DAF}
  3949. // *********************************************************************//
  3950.   KeyBindingsDisp = dispinterface
  3951.     ['{6A481127-E531-11CF-A115-00A024158DAF}']
  3952.     property Application_: IApplication readonly dispid 1610743808;
  3953.     property Count: Integer readonly dispid 1610743809;
  3954.     property Item[var Index: OleVariant]: KeyBinding readonly dispid 0; default;
  3955.     property Parent: IDispatch readonly dispid 1610743811;
  3956.     property _NewEnum: IUnknown readonly dispid -4;
  3957.     function Add(KeyCategory: ImsiKeyCategory; const Command: WideString; KeyCode: Integer; 
  3958.                  var KeyCode2: OleVariant; var CommandParameter: OleVariant): KeyBinding; dispid 1610743813;
  3959.     procedure ClearAll; dispid 1610743814;
  3960.     procedure Open(const Filename: WideString); dispid 1610743815;
  3961.     function Key(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; dispid 1610743816;
  3962.     procedure Save(const Filename: WideString); dispid 1610743817;
  3963.   end;
  3964.  
  3965. // *********************************************************************//
  3966. // Interface: KeyBinding
  3967. // Flags:     (4416) Dual OleAutomation Dispatchable
  3968. // GUID:      {6A481126-E531-11CF-A115-00A024158DAF}
  3969. // *********************************************************************//
  3970.   KeyBinding = interface(IDispatch)
  3971.     ['{6A481126-E531-11CF-A115-00A024158DAF}']
  3972.     function Get_Application_: IApplication; safecall;
  3973.     function Get_Command: WideString; safecall;
  3974.     function Get_CommandParameter: WideString; safecall;
  3975.     function Get_Enabled: IMSI_BOOL; safecall;
  3976.     procedure Set_Enabled(prop: IMSI_BOOL); safecall;
  3977.     function Get_Index: Integer; safecall;
  3978.     function Get_KeyCategory: ImsiKeyCategory; safecall;
  3979.     function Get_KeyCode: Integer; safecall;
  3980.     function Get_KeyCode2: Integer; safecall;
  3981.     function Get_KeyString: WideString; safecall;
  3982.     function Get_Parent: IDispatch; safecall;
  3983.     procedure Delete; safecall;
  3984.     procedure Execute; safecall;
  3985.     procedure Rebind(KeyCategory: ImsiKeyCategory; const Command: WideString; 
  3986.                      var CommandParameter: OleVariant); safecall;
  3987.     property Application_: IApplication read Get_Application_;
  3988.     property Command: WideString read Get_Command;
  3989.     property CommandParameter: WideString read Get_CommandParameter;
  3990.     property Enabled: IMSI_BOOL read Get_Enabled write Set_Enabled;
  3991.     property Index: Integer read Get_Index;
  3992.     property KeyCategory: ImsiKeyCategory read Get_KeyCategory;
  3993.     property KeyCode: Integer read Get_KeyCode;
  3994.     property KeyCode2: Integer read Get_KeyCode2;
  3995.     property KeyString: WideString read Get_KeyString;
  3996.     property Parent: IDispatch read Get_Parent;
  3997.   end;
  3998.  
  3999. // *********************************************************************//
  4000. // DispIntf:  KeyBindingDisp
  4001. // Flags:     (4416) Dual OleAutomation Dispatchable
  4002. // GUID:      {6A481126-E531-11CF-A115-00A024158DAF}
  4003. // *********************************************************************//
  4004.   KeyBindingDisp = dispinterface
  4005.     ['{6A481126-E531-11CF-A115-00A024158DAF}']
  4006.     property Application_: IApplication readonly dispid 1610743808;
  4007.     property Command: WideString readonly dispid 1610743809;
  4008.     property CommandParameter: WideString readonly dispid 1610743810;
  4009.     property Enabled: IMSI_BOOL dispid 1610743811;
  4010.     property Index: Integer readonly dispid 1610743813;
  4011.     property KeyCategory: ImsiKeyCategory readonly dispid 1610743814;
  4012.     property KeyCode: Integer readonly dispid 1610743815;
  4013.     property KeyCode2: Integer readonly dispid 1610743816;
  4014.     property KeyString: WideString readonly dispid 1610743817;
  4015.     property Parent: IDispatch readonly dispid 1610743818;
  4016.     procedure Delete; dispid 1610743819;
  4017.     procedure Execute; dispid 1610743820;
  4018.     procedure Rebind(KeyCategory: ImsiKeyCategory; const Command: WideString; 
  4019.                      var CommandParameter: OleVariant); dispid 1610743821;
  4020.   end;
  4021.  
  4022. // *********************************************************************//
  4023. // Interface: NamedColors
  4024. // Flags:     (4416) Dual OleAutomation Dispatchable
  4025. // GUID:      {6A48111E-E531-11CF-A115-00A024158DAF}
  4026. // *********************************************************************//
  4027.   NamedColors = interface(IDispatch)
  4028.     ['{6A48111E-E531-11CF-A115-00A024158DAF}']
  4029.     function Get_Application_: IApplication; safecall;
  4030.     function Get_Count: Integer; safecall;
  4031.     function Get_Item(var Index: OleVariant): NamedColor; safecall;
  4032.     function Get_Parent: IDispatch; safecall;
  4033.     function Get__NewEnum: IUnknown; safecall;
  4034.     function Add(const Name: WideString; Color: IMSI_COLOR): NamedColor; safecall;
  4035.     function _FindIndex(TableEntryID: Integer): Integer; safecall;
  4036.     function _ObjectFromID(TableEntryID: Integer): NamedColor; safecall;
  4037.     property Application_: IApplication read Get_Application_;
  4038.     property Count: Integer read Get_Count;
  4039.     property Item[var Index: OleVariant]: NamedColor read Get_Item;
  4040.     property Parent: IDispatch read Get_Parent;
  4041.     property _NewEnum: IUnknown read Get__NewEnum;
  4042.   end;
  4043.  
  4044. // *********************************************************************//
  4045. // DispIntf:  NamedColorsDisp
  4046. // Flags:     (4416) Dual OleAutomation Dispatchable
  4047. // GUID:      {6A48111E-E531-11CF-A115-00A024158DAF}
  4048. // *********************************************************************//
  4049.   NamedColorsDisp = dispinterface
  4050.     ['{6A48111E-E531-11CF-A115-00A024158DAF}']
  4051.     property Application_: IApplication readonly dispid 1610743808;
  4052.     property Count: Integer readonly dispid 1610743809;
  4053.     property Item[var Index: OleVariant]: NamedColor readonly dispid 0; default;
  4054.     property Parent: IDispatch readonly dispid 1610743811;
  4055.     property _NewEnum: IUnknown readonly dispid -4;
  4056.     function Add(const Name: WideString; Color: IMSI_COLOR): NamedColor; dispid 1610743813;
  4057.     function _FindIndex(TableEntryID: Integer): Integer; dispid 1610743814;
  4058.     function _ObjectFromID(TableEntryID: Integer): NamedColor; dispid 1610743815;
  4059.   end;
  4060.  
  4061. // *********************************************************************//
  4062. // Interface: NamedColor
  4063. // Flags:     (4416) Dual OleAutomation Dispatchable
  4064. // GUID:      {6A48111D-E531-11CF-A115-00A024158DAF}
  4065. // *********************************************************************//
  4066.   NamedColor = interface(IDispatch)
  4067.     ['{6A48111D-E531-11CF-A115-00A024158DAF}']
  4068.     function Get_Application_: IApplication; safecall;
  4069.     function Get_Blue: Double; safecall;
  4070.     procedure Set_Blue(prop: Double); safecall;
  4071.     function Get_Brightness: Double; safecall;
  4072.     procedure Set_Brightness(prop: Double); safecall;
  4073.     function Get_Color: IMSI_COLOR; safecall;
  4074.     procedure Set_Color(prop: IMSI_COLOR); safecall;
  4075.     function Get_Green: Double; safecall;
  4076.     procedure Set_Green(prop: Double); safecall;
  4077.     function Get_Hue: Double; safecall;
  4078.     procedure Set_Hue(prop: Double); safecall;
  4079.     function Get_Index: Integer; safecall;
  4080.     function Get_Name: WideString; safecall;
  4081.     procedure Set_Name(const prop: WideString); safecall;
  4082.     function Get_Parent: IDispatch; safecall;
  4083.     function Get_Red: Double; safecall;
  4084.     procedure Set_Red(prop: Double); safecall;
  4085.     function Get_Saturation: Double; safecall;
  4086.     procedure Set_Saturation(prop: Double); safecall;
  4087.     function Get__TableEntryID: Integer; safecall;
  4088.     procedure Delete; safecall;
  4089.     function Duplicate(const Name: WideString): NamedColor; safecall;
  4090.     property Application_: IApplication read Get_Application_;
  4091.     property Blue: Double read Get_Blue write Set_Blue;
  4092.     property Brightness: Double read Get_Brightness write Set_Brightness;
  4093.     property Color: IMSI_COLOR read Get_Color write Set_Color;
  4094.     property Green: Double read Get_Green write Set_Green;
  4095.     property Hue: Double read Get_Hue write Set_Hue;
  4096.     property Index: Integer read Get_Index;
  4097.     property Name: WideString read Get_Name write Set_Name;
  4098.     property Parent: IDispatch read Get_Parent;
  4099.     property Red: Double read Get_Red write Set_Red;
  4100.     property Saturation: Double read Get_Saturation write Set_Saturation;
  4101.     property _TableEntryID: Integer read Get__TableEntryID;
  4102.   end;
  4103.  
  4104. // *********************************************************************//
  4105. // DispIntf:  NamedColorDisp
  4106. // Flags:     (4416) Dual OleAutomation Dispatchable
  4107. // GUID:      {6A48111D-E531-11CF-A115-00A024158DAF}
  4108. // *********************************************************************//
  4109.   NamedColorDisp = dispinterface
  4110.     ['{6A48111D-E531-11CF-A115-00A024158DAF}']
  4111.     property Application_: IApplication readonly dispid 1610743808;
  4112.     property Blue: Double dispid 1610743809;
  4113.     property Brightness: Double dispid 1610743811;
  4114.     property Color: IMSI_COLOR dispid 0;
  4115.     property Green: Double dispid 1610743815;
  4116.     property Hue: Double dispid 1610743817;
  4117.     property Index: Integer readonly dispid 1610743819;
  4118.     property Name: WideString dispid 1610743820;
  4119.     property Parent: IDispatch readonly dispid 1610743822;
  4120.     property Red: Double dispid 1610743823;
  4121.     property Saturation: Double dispid 1610743825;
  4122.     property _TableEntryID: Integer readonly dispid 1610743827;
  4123.     procedure Delete; dispid 1610743828;
  4124.     function Duplicate(const Name: WideString): NamedColor; dispid 1610743829;
  4125.   end;
  4126.  
  4127. // *********************************************************************//
  4128. // Interface: ApplicationOptions
  4129. // Flags:     (4416) Dual OleAutomation Dispatchable
  4130. // GUID:      {6A481102-E531-11CF-A115-00A024158DAF}
  4131. // *********************************************************************//
  4132.   ApplicationOptions = interface(IDispatch)
  4133.     ['{6A481102-E531-11CF-A115-00A024158DAF}']
  4134.     function Get_ColorButtons: IMSI_BOOL; safecall;
  4135.     procedure Set_ColorButtons(ColorButtons: IMSI_BOOL); safecall;
  4136.     function Get_CoordinateStyle: ImsiCoordinateStyle; safecall;
  4137.     procedure Set_CoordinateStyle(prop: ImsiCoordinateStyle); safecall;
  4138.     function Get_CreateBackup: IMSI_BOOL; safecall;
  4139.     procedure Set_CreateBackup(prop: IMSI_BOOL); safecall;
  4140.     function Get_DefaultFilePath(lcid: Integer): WideString; safecall;
  4141.     procedure Set_DefaultFilePath(lcid: Integer; const prop: WideString); safecall;
  4142.     function Get_DisplayAlerts: IMSI_BOOL; safecall;
  4143.     procedure Set_DisplayAlerts(prop: IMSI_BOOL); safecall;
  4144.     function Get_LargeButtons: IMSI_BOOL; safecall;
  4145.     procedure Set_LargeButtons(prop: IMSI_BOOL); safecall;
  4146.     function Get_PromptForSummaryInfo(lcid: Integer): IMSI_BOOL; safecall;
  4147.     procedure Set_PromptForSummaryInfo(lcid: Integer; prop: IMSI_BOOL); safecall;
  4148.     function Get_ReplaceSelection: IMSI_BOOL; safecall;
  4149.     procedure Set_ReplaceSelection(prop: IMSI_BOOL); safecall;
  4150.     function Get_UpdateLinksAtOpen: IMSI_BOOL; safecall;
  4151.     procedure Set_UpdateLinksAtOpen(prop: IMSI_BOOL); safecall;
  4152.     function Get_UpdateLinksAtPrint: IMSI_BOOL; safecall;
  4153.     procedure Set_UpdateLinksAtPrint(prop: IMSI_BOOL); safecall;
  4154.     property ColorButtons: IMSI_BOOL read Get_ColorButtons write Set_ColorButtons;
  4155.     property CoordinateStyle: ImsiCoordinateStyle read Get_CoordinateStyle write Set_CoordinateStyle;
  4156.     property CreateBackup: IMSI_BOOL read Get_CreateBackup write Set_CreateBackup;
  4157.     property DefaultFilePath[lcid: Integer]: WideString read Get_DefaultFilePath write Set_DefaultFilePath;
  4158.     property DisplayAlerts: IMSI_BOOL read Get_DisplayAlerts write Set_DisplayAlerts;
  4159.     property LargeButtons: IMSI_BOOL read Get_LargeButtons write Set_LargeButtons;
  4160.     property PromptForSummaryInfo[lcid: Integer]: IMSI_BOOL read Get_PromptForSummaryInfo write Set_PromptForSummaryInfo;
  4161.     property ReplaceSelection: IMSI_BOOL read Get_ReplaceSelection write Set_ReplaceSelection;
  4162.     property UpdateLinksAtOpen: IMSI_BOOL read Get_UpdateLinksAtOpen write Set_UpdateLinksAtOpen;
  4163.     property UpdateLinksAtPrint: IMSI_BOOL read Get_UpdateLinksAtPrint write Set_UpdateLinksAtPrint;
  4164.   end;
  4165.  
  4166. // *********************************************************************//
  4167. // DispIntf:  ApplicationOptionsDisp
  4168. // Flags:     (4416) Dual OleAutomation Dispatchable
  4169. // GUID:      {6A481102-E531-11CF-A115-00A024158DAF}
  4170. // *********************************************************************//
  4171.   ApplicationOptionsDisp = dispinterface
  4172.     ['{6A481102-E531-11CF-A115-00A024158DAF}']
  4173.     property ColorButtons: IMSI_BOOL dispid 1610743808;
  4174.     property CoordinateStyle: ImsiCoordinateStyle dispid 1610743810;
  4175.     property CreateBackup: IMSI_BOOL dispid 1610743812;
  4176.     property DefaultFilePath[lcid: Integer]: WideString dispid 1610743814;
  4177.     property DisplayAlerts: IMSI_BOOL dispid 1610743816;
  4178.     property LargeButtons: IMSI_BOOL dispid 1610743818;
  4179.     property PromptForSummaryInfo[lcid: Integer]: IMSI_BOOL dispid 1610743820;
  4180.     property ReplaceSelection: IMSI_BOOL dispid 1610743822;
  4181.     property UpdateLinksAtOpen: IMSI_BOOL dispid 1610743824;
  4182.     property UpdateLinksAtPrint: IMSI_BOOL dispid 1610743826;
  4183.   end;
  4184.  
  4185. // *********************************************************************//
  4186. // Interface: RegenMethods
  4187. // Flags:     (4416) Dual OleAutomation Dispatchable
  4188. // GUID:      {6A481114-E531-11CF-A115-00A024158DAF}
  4189. // *********************************************************************//
  4190.   RegenMethods = interface(IDispatch)
  4191.     ['{6A481114-E531-11CF-A115-00A024158DAF}']
  4192.     function Get_Application_: IApplication; safecall;
  4193.     function Get_Count: Integer; safecall;
  4194.     function Get_Item(var Index: OleVariant): RegenMethod; safecall;
  4195.     function Get_Parent: IDispatch; safecall;
  4196.     function Get__NewEnum: IUnknown; safecall;
  4197.     procedure Add(const Filename: WideString; var RegensAdded: OleVariant); safecall;
  4198.     function _FindIndex(TableEntryID: Integer): Integer; safecall;
  4199.     function _ObjectFromID(TableEntryID: Integer): RegenMethod; safecall;
  4200.     property Application_: IApplication read Get_Application_;
  4201.     property Count: Integer read Get_Count;
  4202.     property Item[var Index: OleVariant]: RegenMethod read Get_Item;
  4203.     property Parent: IDispatch read Get_Parent;
  4204.     property _NewEnum: IUnknown read Get__NewEnum;
  4205.   end;
  4206.  
  4207. // *********************************************************************//
  4208. // DispIntf:  RegenMethodsDisp
  4209. // Flags:     (4416) Dual OleAutomation Dispatchable
  4210. // GUID:      {6A481114-E531-11CF-A115-00A024158DAF}
  4211. // *********************************************************************//
  4212.   RegenMethodsDisp = dispinterface
  4213.     ['{6A481114-E531-11CF-A115-00A024158DAF}']
  4214.     property Application_: IApplication readonly dispid 1610743808;
  4215.     property Count: Integer readonly dispid 1610743809;
  4216.     property Item[var Index: OleVariant]: RegenMethod readonly dispid 0; default;
  4217.     property Parent: IDispatch readonly dispid 1610743811;
  4218.     property _NewEnum: IUnknown readonly dispid -4;
  4219.     procedure Add(const Filename: WideString; var RegensAdded: OleVariant); dispid 1610743813;
  4220.     function _FindIndex(TableEntryID: Integer): Integer; dispid 1610743814;
  4221.     function _ObjectFromID(TableEntryID: Integer): RegenMethod; dispid 1610743815;
  4222.   end;
  4223.  
  4224. // *********************************************************************//
  4225. // Interface: ScaleSystems
  4226. // Flags:     (4416) Dual OleAutomation Dispatchable
  4227. // GUID:      {6A481131-E531-11CF-A115-00A024158DAF}
  4228. // *********************************************************************//
  4229.   ScaleSystems = interface(IDispatch)
  4230.     ['{6A481131-E531-11CF-A115-00A024158DAF}']
  4231.     function Get_Application_: IApplication; safecall;
  4232.     function Get_Count: Integer; safecall;
  4233.     function Get_Item(var Index: OleVariant): ScaleSystem; safecall;
  4234.     function Get_Parent: IDispatch; safecall;
  4235.     function Get__NewEnum: IUnknown; safecall;
  4236.     property Application_: IApplication read Get_Application_;
  4237.     property Count: Integer read Get_Count;
  4238.     property Item[var Index: OleVariant]: ScaleSystem read Get_Item;
  4239.     property Parent: IDispatch read Get_Parent;
  4240.     property _NewEnum: IUnknown read Get__NewEnum;
  4241.   end;
  4242.  
  4243. // *********************************************************************//
  4244. // DispIntf:  ScaleSystemsDisp
  4245. // Flags:     (4416) Dual OleAutomation Dispatchable
  4246. // GUID:      {6A481131-E531-11CF-A115-00A024158DAF}
  4247. // *********************************************************************//
  4248.   ScaleSystemsDisp = dispinterface
  4249.     ['{6A481131-E531-11CF-A115-00A024158DAF}']
  4250.     property Application_: IApplication readonly dispid 1610743808;
  4251.     property Count: Integer readonly dispid 1610743809;
  4252.     property Item[var Index: OleVariant]: ScaleSystem readonly dispid 0; default;
  4253.     property Parent: IDispatch readonly dispid 1610743811;
  4254.     property _NewEnum: IUnknown readonly dispid -4;
  4255.   end;
  4256.  
  4257. // *********************************************************************//
  4258. // Interface: ScaleSystem
  4259. // Flags:     (4416) Dual OleAutomation Dispatchable
  4260. // GUID:      {6A481130-E531-11CF-A115-00A024158DAF}
  4261. // *********************************************************************//
  4262.   ScaleSystem = interface(IDispatch)
  4263.     ['{6A481130-E531-11CF-A115-00A024158DAF}']
  4264.     function Get_Application_: IApplication; safecall;
  4265.     function Get_Count: Integer; safecall;
  4266.     function Get_Index: Integer; safecall;
  4267.     function Get_Item(var Index: OleVariant): WideString; safecall;
  4268.     function Get_Name: WideString; safecall;
  4269.     function Get_Parent: IDispatch; safecall;
  4270.     function Get__TableEntryID: Integer; safecall;
  4271.     procedure Delete; safecall;
  4272.     property Application_: IApplication read Get_Application_;
  4273.     property Count: Integer read Get_Count;
  4274.     property Index: Integer read Get_Index;
  4275.     property Item[var Index: OleVariant]: WideString read Get_Item;
  4276.     property Name: WideString read Get_Name;
  4277.     property Parent: IDispatch read Get_Parent;
  4278.     property _TableEntryID: Integer read Get__TableEntryID;
  4279.   end;
  4280.  
  4281. // *********************************************************************//
  4282. // DispIntf:  ScaleSystemDisp
  4283. // Flags:     (4416) Dual OleAutomation Dispatchable
  4284. // GUID:      {6A481130-E531-11CF-A115-00A024158DAF}
  4285. // *********************************************************************//
  4286.   ScaleSystemDisp = dispinterface
  4287.     ['{6A481130-E531-11CF-A115-00A024158DAF}']
  4288.     property Application_: IApplication readonly dispid 1610743808;
  4289.     property Count: Integer readonly dispid 1610743809;
  4290.     property Index: Integer readonly dispid 1610743810;
  4291.     property Item[var Index: OleVariant]: WideString readonly dispid 0; default;
  4292.     property Name: WideString readonly dispid 1610743812;
  4293.     property Parent: IDispatch readonly dispid 1610743813;
  4294.     property _TableEntryID: Integer readonly dispid 1610743814;
  4295.     procedure Delete; dispid 1610743815;
  4296.   end;
  4297.  
  4298. // *********************************************************************//
  4299. // Interface: Selection
  4300. // Flags:     (4416) Dual OleAutomation Dispatchable
  4301. // GUID:      {6A48110B-E531-11CF-A115-00A024158DAF}
  4302. // *********************************************************************//
  4303.   Selection = interface(IDispatch)
  4304.     ['{6A48110B-E531-11CF-A115-00A024158DAF}']
  4305.     function Get_Application_: IApplication; safecall;
  4306.     function Get_Count: Integer; safecall;
  4307.     function Get_Drawing: IDrawing; safecall;
  4308.     function Get_Item(var Index: OleVariant): IGraphic; safecall;
  4309.     function Get_Parent: IDispatch; safecall;
  4310.     function Get__NewEnum: IUnknown; safecall;
  4311.     procedure ApplyStyle(const StyleToApply: Style); safecall;
  4312.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  4313.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  4314.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  4315.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  4316.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  4317.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); safecall;
  4318.     function AddHatch: IGraphic; safecall;
  4319.     function CreateStyle(const BasedOn: Style): Style; safecall;
  4320.     function AddObject(var ClassType: OleVariant; var Filename: OleVariant; 
  4321.                        var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  4322.                        var IconFileName: OleVariant; var IconIndex: OleVariant; 
  4323.                        var IconLabel: OleVariant; var X: OleVariant; var Y: OleVariant; 
  4324.                        var Z: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  4325.                        var Anchor: OleVariant): IGraphic; safecall;
  4326.     function AddLineTanArcPoint(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4327.                                 length: Double): IGraphic; safecall;
  4328.     function AddLineTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4329.     function AddLineTanFromArc(const TangentFrom: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4330.     function AddLineTan2Arcs(const Arc1: IGraphic; const Arc2: IGraphic; CounterClockwise: IMSI_BOOL): IGraphic; safecall;
  4331.     function AddDimensionLeader(X0: Double; Y0: Double; Z0: Double; const Text: WideString): IGraphic; safecall;
  4332.     function AddDimensionBaseline(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4333.     function AddDimensionContinuous(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4334.     function AddDoubleLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4335.                                  Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  4336.     function AddDoubleLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4337.                                   Z1: Double; Sides: Integer; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  4338.     function AddDoubleLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4339.                                     Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; safecall;
  4340.     function AddDoubleLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  4341.                                            Y1: Double; Z1: Double; Angle: Double; 
  4342.                                            var DoubleLineOffset: OleVariant): IGraphic; safecall;
  4343.     function AddDoubleLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4344.                                         X1: Double; Y1: Double; Z1: Double; 
  4345.                                         var DoubleLineOffset: OleVariant): IGraphic; safecall;
  4346.     function AddDoubleLineMultiline(X0: Double; Y0: Double; Z0: Double; 
  4347.                                     var DoubleLineOffset: OleVariant): IGraphic; safecall;
  4348.     function AddDoubleLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double; 
  4349.                                            var DoubleLineOffset: OleVariant): IGraphic; safecall;
  4350.     function AddDoubleLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4351.                                    var DoubleLineOffset: OleVariant): IGraphic; safecall;
  4352.     function AddCircleTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4353.                                X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  4354.     function AddCircleTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4355.                                 X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  4356.     function AddCircleTan3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic): IGraphic; safecall;
  4357.     function AddArcTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4358.                             X1: Double; Y1: Double; Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  4359.     function AddArcTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4360.                              X1: Double; Y1: Double; Z1: Double; StartAngle: Double; 
  4361.                              EndAngle: Double): IGraphic; safecall;
  4362.     function AddArcTanTo3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic; 
  4363.                               StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  4364.     function AddDimensionHorizontal(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4365.                                     Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  4366.     function AddDimensionVertical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4367.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  4368.     function AddDimensionParallel(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4369.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  4370.     function AddDimensionRotated(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4371.                                  Z1: Double; X2: Double; Y2: Double; Z2: Double; X3: Double; 
  4372.                                  Y3: Double; Z3: Double; X4: Double; Y4: Double; Z4: Double): IGraphic; safecall;
  4373.     function AddDimensionDatum(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4374.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  4375.     function AddDimensionAngular(const Line1: IGraphic; const Line2: IGraphic; X0: Double; 
  4376.                                  Y0: Double; Z0: Double): IGraphic; safecall;
  4377.     function AddDimensionRadius(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4378.     function AddDimensionDiameter(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4379.     function Add(var GraphicType: OleVariant; var RegenMethod: OleVariant; var Inherit: OleVariant; 
  4380.                  var Style: OleVariant; var Before: OleVariant; var After: OleVariant): IGraphic; safecall;
  4381.     procedure AddGraphic(const Graphic: IGraphic; var Before: OleVariant; var After: OleVariant); safecall;
  4382.     function CalcBoundingBox(var Transform: OleVariant): BoundingBox; safecall;
  4383.     procedure Clear(var CosmeticOnly: OleVariant); safecall;
  4384.     procedure ClearConstruction; safecall;
  4385.     procedure Copy; safecall;
  4386.     procedure Cut; safecall;
  4387.     procedure Draw(var View: OleVariant); safecall;
  4388.     function Remove(var Index: OleVariant): IGraphic; safecall;
  4389.     procedure Select; safecall;
  4390.     procedure Unselect; safecall;
  4391.     function AddConstructionAngularLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4392.                                         Z1: Double): IGraphic; safecall;
  4393.     function AddConstructionHorizontalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4394.     function AddConstructionVerticalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4395.     function AddConstructionCenterAndPointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  4396.                                                  Y1: Double; Z1: Double): IGraphic; safecall;
  4397.     function AddConstructionDoublePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  4398.                                               Y1: Double; Z1: Double): IGraphic; safecall;
  4399.     function AddConstructionTriplePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  4400.                                               Y1: Double; Z1: Double; X2: Double; Y2: Double; 
  4401.                                               Z2: Double): IGraphic; safecall;
  4402.     function AddDot(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4403.     function AddStar(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4404.     function AddSquare(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4405.     function AddCross(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4406.     function AddCircle(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4407.     function AddLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  4408.     function AddLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  4409.                             nsides: Integer): IGraphic; safecall;
  4410.     function AddLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  4411.     function AddLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4412.                                      Z1: Double; Angle: Double): IGraphic; safecall;
  4413.     function AddLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4414.                                   X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  4415.     function AddLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4416.     function AddLineMultiline(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4417.     function AddLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4418.     function AddCurveBezier(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4419.     function AddCurveSpline(X0: Double; Y0: Double; Z0: Double): IGraphic; safecall;
  4420.     function AddCircleCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4421.                                      Z1: Double): IGraphic; safecall;
  4422.     function AddCircleDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4423.                                   Z1: Double): IGraphic; safecall;
  4424.     function AddCircleTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4425.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  4426.     function AddEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; safecall;
  4427.     function AddEllipseRotatedEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4428.                                       Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  4429.     function AddEllipseFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4430.                                   Z1: Double; XToYRatio: Double): IGraphic; safecall;
  4431.     function AddArcCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4432.                                   Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  4433.     function AddArcDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4434.                                Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  4435.     function AddArcTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4436.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; safecall;
  4437.     function AddArcElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4438.                               Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  4439.     function AddArcRotatedElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4440.                                      Z1: Double; X2: Double; Y2: Double; Z2: Double; 
  4441.                                      StartAngle: Double; EndAngle: Double): IGraphic; safecall;
  4442.     function AddArcEllipticalFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4443.                                         Z1: Double; XToYRatio: Double; StartAngle: Double; 
  4444.                                         EndAngle: Double): IGraphic; safecall;
  4445.     function AddText(const Text: WideString; X0: Double; Y0: Double; Z0: Double; Height: Double; 
  4446.                      var Angle: OleVariant; var Width: OleVariant; var Offset: OleVariant; 
  4447.                      var Justification: OleVariant): IGraphic; safecall;
  4448.     function CreateBlock(const Name: WideString; var XRef: OleVariant; var YRef: OleVariant; 
  4449.                          var ZRef: OleVariant; var CopyGraphics: OleVariant; 
  4450.                          var InsertBlock: OleVariant; var Insert: OleVariant): Block; safecall;
  4451.     function AddBlockInsertion(var Block: OleVariant; var X0: OleVariant; var Y0: OleVariant; 
  4452.                                var Z0: OleVariant; var XScale: OleVariant; var YScale: OleVariant; 
  4453.                                var ZScale: OleVariant; var Angle: OleVariant): IGraphic; safecall;
  4454.     function AddGroup(var Name: OleVariant; var Copy: OleVariant): IGraphic; safecall;
  4455.     function Explode: GraphicSet; safecall;
  4456.     function LinearCopyAbsolute(X: Double; Y: Double; Z: Double; Copies: Integer; 
  4457.                                 var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  4458.                                 var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  4459.     function LinearCopyRelative(X: Double; Y: Double; Z: Double; Copies: Integer; 
  4460.                                 var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  4461.     function LinearCopyAngle(length: Double; Angle: Double; Copies: Integer; var Fit: OleVariant; 
  4462.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  4463.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  4464.     function RadialCopyAbsolute(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4465.                                 Z1: Double; Copies: Integer; var Fit: OleVariant; 
  4466.                                 var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  4467.                                 var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  4468.     function RadialCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; RotationAngle: Double; 
  4469.                              Copies: Integer; var Fit: OleVariant; var XRef: OleVariant; 
  4470.                              var YRef: OleVariant; var ZRef: OleVariant; var Workplane: OleVariant; 
  4471.                              var Matrix: OleVariant): GraphicSet; safecall;
  4472.     function ArrayCopyAbsolute(X: Double; Y: Double; Z: Double; Rows: Integer; Columns: Integer; 
  4473.                                var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  4474.                                var ZRef: OleVariant; var Workplane: OleVariant; 
  4475.                                var Matrix: OleVariant): GraphicSet; safecall;
  4476.     function ArrayCopyRelative(U: Double; V: Double; Rows: Integer; Columns: Integer; 
  4477.                                var Fit: OleVariant; var Workplane: OleVariant; 
  4478.                                var Matrix: OleVariant): GraphicSet; safecall;
  4479.     function MirrorCopyLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  4480.                             var Copy: OleVariant; var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  4481.     function MirrorCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; var Copy: OleVariant; 
  4482.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  4483.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; safecall;
  4484.     function Scale(XScale: Double; YScale: Double; ZScale: Double; var XRef: OleVariant; 
  4485.                    var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  4486.     function RotateAxis(Angle: Double; var XAxis: OleVariant; var YAxis: OleVariant; 
  4487.                         var ZAxis: OleVariant; var X: OleVariant; var Y: OleVariant; 
  4488.                         var Z: OleVariant): IMatrix; safecall;
  4489.     function RotateAbsolute(var XTo: OleVariant; var YTo: OleVariant; var ZTo: OleVariant; 
  4490.                             var XFrom: OleVariant; var YFrom: OleVariant; var ZFrom: OleVariant; 
  4491.                             var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  4492.     function MoveAbsolute(X: Double; Y: Double; Z: Double; var XRef: OleVariant; 
  4493.                           var YRef: OleVariant; var ZRef: OleVariant): IMatrix; safecall;
  4494.     function MoveRelative(X: Double; Y: Double; Z: Double): IMatrix; safecall;
  4495.     procedure Transform(const Transform: IMatrix); safecall;
  4496.     procedure Align(AlignType: ImsiAlignType); safecall;
  4497.     procedure AlignAlongLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double); safecall;
  4498.     function _FindIndex(g: Integer): Integer; safecall;
  4499.     function QuerySet(const Query: WideString): GraphicSet; safecall;
  4500.     function AddPolys(Type_: ImsiPolyType; var Coords: OleVariant): GraphicSet; safecall;
  4501.     procedure CreateDragOutline(var Coords: OleVariant); safecall;
  4502.     function AddPolylines(NumberOfPolylines: Integer; var Coords: OleVariant; Closed: IMSI_BOOL): GraphicSet; safecall;
  4503.     function GraphicFromID(ID: Integer): IGraphic; safecall;
  4504.     function AddAttributeDefinition(const Tag: WideString; X0: Double; Y0: Double; Z0: Double; 
  4505.                                     Height: Double; var Angle: OleVariant; var Width: OleVariant; 
  4506.                                     var Offset: OleVariant; var Justification: OleVariant; 
  4507.                                     var AttFlags: OleVariant; var Default: OleVariant; 
  4508.                                     var Prompt: OleVariant): IGraphic; safecall;
  4509.     procedure PrintOut(var From: OleVariant; var To_: OleVariant; var Copies: OleVariant; 
  4510.                        var ActivePrinter: OleVariant; var OutputFileName: OleVariant; 
  4511.                        var FitToPage: OleVariant; var Collate: OleVariant); safecall;
  4512.     procedure SaveAs(const Filename: WideString; var Filter: OleVariant); safecall;
  4513.     property Application_: IApplication read Get_Application_;
  4514.     property Count: Integer read Get_Count;
  4515.     property Drawing: IDrawing read Get_Drawing;
  4516.     property Item[var Index: OleVariant]: IGraphic read Get_Item;
  4517.     property Parent: IDispatch read Get_Parent;
  4518.     property _NewEnum: IUnknown read Get__NewEnum;
  4519.   end;
  4520.  
  4521. // *********************************************************************//
  4522. // DispIntf:  SelectionDisp
  4523. // Flags:     (4416) Dual OleAutomation Dispatchable
  4524. // GUID:      {6A48110B-E531-11CF-A115-00A024158DAF}
  4525. // *********************************************************************//
  4526.   SelectionDisp = dispinterface
  4527.     ['{6A48110B-E531-11CF-A115-00A024158DAF}']
  4528.     property Application_: IApplication readonly dispid 1610743808;
  4529.     property Count: Integer readonly dispid 1610743809;
  4530.     property Drawing: IDrawing readonly dispid 1610743810;
  4531.     property Item[var Index: OleVariant]: IGraphic readonly dispid 0; default;
  4532.     property Parent: IDispatch readonly dispid 1610743812;
  4533.     property _NewEnum: IUnknown readonly dispid -4;
  4534.     procedure ApplyStyle(const StyleToApply: Style); dispid 1610743814;
  4535.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  4536.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  4537.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  4538.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  4539.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  4540.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); dispid 1610743815;
  4541.     function AddHatch: IGraphic; dispid 1610743816;
  4542.     function CreateStyle(const BasedOn: Style): Style; dispid 1610743817;
  4543.     function AddObject(var ClassType: OleVariant; var Filename: OleVariant; 
  4544.                        var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  4545.                        var IconFileName: OleVariant; var IconIndex: OleVariant; 
  4546.                        var IconLabel: OleVariant; var X: OleVariant; var Y: OleVariant; 
  4547.                        var Z: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  4548.                        var Anchor: OleVariant): IGraphic; dispid 1610743818;
  4549.     function AddLineTanArcPoint(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4550.                                 length: Double): IGraphic; dispid 1610743819;
  4551.     function AddLineTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743820;
  4552.     function AddLineTanFromArc(const TangentFrom: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743821;
  4553.     function AddLineTan2Arcs(const Arc1: IGraphic; const Arc2: IGraphic; CounterClockwise: IMSI_BOOL): IGraphic; dispid 1610743822;
  4554.     function AddDimensionLeader(X0: Double; Y0: Double; Z0: Double; const Text: WideString): IGraphic; dispid 1610743823;
  4555.     function AddDimensionBaseline(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743824;
  4556.     function AddDimensionContinuous(const AddTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743825;
  4557.     function AddDoubleLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4558.                                  Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743826;
  4559.     function AddDoubleLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4560.                                   Z1: Double; Sides: Integer; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743827;
  4561.     function AddDoubleLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4562.                                     Z1: Double; var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743828;
  4563.     function AddDoubleLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  4564.                                            Y1: Double; Z1: Double; Angle: Double; 
  4565.                                            var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743829;
  4566.     function AddDoubleLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4567.                                         X1: Double; Y1: Double; Z1: Double; 
  4568.                                         var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743830;
  4569.     function AddDoubleLineMultiline(X0: Double; Y0: Double; Z0: Double; 
  4570.                                     var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743831;
  4571.     function AddDoubleLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double; 
  4572.                                            var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743832;
  4573.     function AddDoubleLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4574.                                    var DoubleLineOffset: OleVariant): IGraphic; dispid 1610743833;
  4575.     function AddCircleTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4576.                                X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743834;
  4577.     function AddCircleTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4578.                                 X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743835;
  4579.     function AddCircleTan3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic): IGraphic; dispid 1610743836;
  4580.     function AddArcTanToArc(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4581.                             X1: Double; Y1: Double; Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743837;
  4582.     function AddArcTanToLine(const TangentTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4583.                              X1: Double; Y1: Double; Z1: Double; StartAngle: Double; 
  4584.                              EndAngle: Double): IGraphic; dispid 1610743838;
  4585.     function AddArcTanTo3Arcs(const Arc1: IGraphic; const Arc2: IGraphic; const Arc3: IGraphic; 
  4586.                               StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743839;
  4587.     function AddDimensionHorizontal(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4588.                                     Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743840;
  4589.     function AddDimensionVertical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4590.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743841;
  4591.     function AddDimensionParallel(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4592.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743842;
  4593.     function AddDimensionRotated(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4594.                                  Z1: Double; X2: Double; Y2: Double; Z2: Double; X3: Double; 
  4595.                                  Y3: Double; Z3: Double; X4: Double; Y4: Double; Z4: Double): IGraphic; dispid 1610743843;
  4596.     function AddDimensionDatum(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4597.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743844;
  4598.     function AddDimensionAngular(const Line1: IGraphic; const Line2: IGraphic; X0: Double; 
  4599.                                  Y0: Double; Z0: Double): IGraphic; dispid 1610743845;
  4600.     function AddDimensionRadius(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743846;
  4601.     function AddDimensionDiameter(const Arc: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743847;
  4602.     function Add(var GraphicType: OleVariant; var RegenMethod: OleVariant; var Inherit: OleVariant; 
  4603.                  var Style: OleVariant; var Before: OleVariant; var After: OleVariant): IGraphic; dispid 1610743848;
  4604.     procedure AddGraphic(const Graphic: IGraphic; var Before: OleVariant; var After: OleVariant); dispid 1610743849;
  4605.     function CalcBoundingBox(var Transform: OleVariant): BoundingBox; dispid 1610743850;
  4606.     procedure Clear(var CosmeticOnly: OleVariant); dispid 1610743851;
  4607.     procedure ClearConstruction; dispid 1610743852;
  4608.     procedure Copy; dispid 1610743853;
  4609.     procedure Cut; dispid 1610743854;
  4610.     procedure Draw(var View: OleVariant); dispid 1610743855;
  4611.     function Remove(var Index: OleVariant): IGraphic; dispid 1610743856;
  4612.     procedure Select; dispid 1610743857;
  4613.     procedure Unselect; dispid 1610743858;
  4614.     function AddConstructionAngularLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4615.                                         Z1: Double): IGraphic; dispid 1610743859;
  4616.     function AddConstructionHorizontalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743860;
  4617.     function AddConstructionVerticalLine(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743861;
  4618.     function AddConstructionCenterAndPointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  4619.                                                  Y1: Double; Z1: Double): IGraphic; dispid 1610743862;
  4620.     function AddConstructionDoublePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  4621.                                               Y1: Double; Z1: Double): IGraphic; dispid 1610743863;
  4622.     function AddConstructionTriplePointCircle(X0: Double; Y0: Double; Z0: Double; X1: Double; 
  4623.                                               Y1: Double; Z1: Double; X2: Double; Y2: Double; 
  4624.                                               Z2: Double): IGraphic; dispid 1610743864;
  4625.     function AddDot(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743865;
  4626.     function AddStar(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743866;
  4627.     function AddSquare(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743867;
  4628.     function AddCross(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743868;
  4629.     function AddCircle(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743869;
  4630.     function AddLineSingle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743870;
  4631.     function AddLinePolygon(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  4632.                             nsides: Integer): IGraphic; dispid 1610743871;
  4633.     function AddLineRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743872;
  4634.     function AddLineRotatedRectangle(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4635.                                      Z1: Double; Angle: Double): IGraphic; dispid 1610743873;
  4636.     function AddLinePerpendicular(const PerpTo: IGraphic; X0: Double; Y0: Double; Z0: Double; 
  4637.                                   X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743874;
  4638.     function AddLineParallel(const ParallelTo: IGraphic; X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743875;
  4639.     function AddLineMultiline(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743876;
  4640.     function AddLineIrregularPolygon(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743877;
  4641.     function AddCurveBezier(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743878;
  4642.     function AddCurveSpline(X0: Double; Y0: Double; Z0: Double): IGraphic; dispid 1610743879;
  4643.     function AddCircleCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4644.                                      Z1: Double): IGraphic; dispid 1610743880;
  4645.     function AddCircleDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4646.                                   Z1: Double): IGraphic; dispid 1610743881;
  4647.     function AddCircleTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4648.                                   Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743882;
  4649.     function AddEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double): IGraphic; dispid 1610743883;
  4650.     function AddEllipseRotatedEllipse(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4651.                                       Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743884;
  4652.     function AddEllipseFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4653.                                   Z1: Double; XToYRatio: Double): IGraphic; dispid 1610743885;
  4654.     function AddArcCenterAndPoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4655.                                   Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743886;
  4656.     function AddArcDoublePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4657.                                Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743887;
  4658.     function AddArcTriplePoint(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4659.                                Z1: Double; X2: Double; Y2: Double; Z2: Double): IGraphic; dispid 1610743888;
  4660.     function AddArcElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4661.                               Z1: Double; StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743889;
  4662.     function AddArcRotatedElliptical(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4663.                                      Z1: Double; X2: Double; Y2: Double; Z2: Double; 
  4664.                                      StartAngle: Double; EndAngle: Double): IGraphic; dispid 1610743890;
  4665.     function AddArcEllipticalFixedRatio(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4666.                                         Z1: Double; XToYRatio: Double; StartAngle: Double; 
  4667.                                         EndAngle: Double): IGraphic; dispid 1610743891;
  4668.     function AddText(const Text: WideString; X0: Double; Y0: Double; Z0: Double; Height: Double; 
  4669.                      var Angle: OleVariant; var Width: OleVariant; var Offset: OleVariant; 
  4670.                      var Justification: OleVariant): IGraphic; dispid 1610743892;
  4671.     function CreateBlock(const Name: WideString; var XRef: OleVariant; var YRef: OleVariant; 
  4672.                          var ZRef: OleVariant; var CopyGraphics: OleVariant; 
  4673.                          var InsertBlock: OleVariant; var Insert: OleVariant): Block; dispid 1610743893;
  4674.     function AddBlockInsertion(var Block: OleVariant; var X0: OleVariant; var Y0: OleVariant; 
  4675.                                var Z0: OleVariant; var XScale: OleVariant; var YScale: OleVariant; 
  4676.                                var ZScale: OleVariant; var Angle: OleVariant): IGraphic; dispid 1610743894;
  4677.     function AddGroup(var Name: OleVariant; var Copy: OleVariant): IGraphic; dispid 1610743895;
  4678.     function Explode: GraphicSet; dispid 1610743896;
  4679.     function LinearCopyAbsolute(X: Double; Y: Double; Z: Double; Copies: Integer; 
  4680.                                 var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  4681.                                 var ZRef: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743897;
  4682.     function LinearCopyRelative(X: Double; Y: Double; Z: Double; Copies: Integer; 
  4683.                                 var Fit: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743898;
  4684.     function LinearCopyAngle(length: Double; Angle: Double; Copies: Integer; var Fit: OleVariant; 
  4685.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  4686.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743899;
  4687.     function RadialCopyAbsolute(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; 
  4688.                                 Z1: Double; Copies: Integer; var Fit: OleVariant; 
  4689.                                 var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  4690.                                 var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743900;
  4691.     function RadialCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; RotationAngle: Double; 
  4692.                              Copies: Integer; var Fit: OleVariant; var XRef: OleVariant; 
  4693.                              var YRef: OleVariant; var ZRef: OleVariant; var Workplane: OleVariant; 
  4694.                              var Matrix: OleVariant): GraphicSet; dispid 1610743901;
  4695.     function ArrayCopyAbsolute(X: Double; Y: Double; Z: Double; Rows: Integer; Columns: Integer; 
  4696.                                var Fit: OleVariant; var XRef: OleVariant; var YRef: OleVariant; 
  4697.                                var ZRef: OleVariant; var Workplane: OleVariant; 
  4698.                                var Matrix: OleVariant): GraphicSet; dispid 1610743902;
  4699.     function ArrayCopyRelative(U: Double; V: Double; Rows: Integer; Columns: Integer; 
  4700.                                var Fit: OleVariant; var Workplane: OleVariant; 
  4701.                                var Matrix: OleVariant): GraphicSet; dispid 1610743903;
  4702.     function MirrorCopyLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double; 
  4703.                             var Copy: OleVariant; var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743904;
  4704.     function MirrorCopyAngle(X: Double; Y: Double; Z: Double; Angle: Double; var Copy: OleVariant; 
  4705.                              var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant; 
  4706.                              var Workplane: OleVariant; var Matrix: OleVariant): GraphicSet; dispid 1610743905;
  4707.     function Scale(XScale: Double; YScale: Double; ZScale: Double; var XRef: OleVariant; 
  4708.                    var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743906;
  4709.     function RotateAxis(Angle: Double; var XAxis: OleVariant; var YAxis: OleVariant; 
  4710.                         var ZAxis: OleVariant; var X: OleVariant; var Y: OleVariant; 
  4711.                         var Z: OleVariant): IMatrix; dispid 1610743907;
  4712.     function RotateAbsolute(var XTo: OleVariant; var YTo: OleVariant; var ZTo: OleVariant; 
  4713.                             var XFrom: OleVariant; var YFrom: OleVariant; var ZFrom: OleVariant; 
  4714.                             var XRef: OleVariant; var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743908;
  4715.     function MoveAbsolute(X: Double; Y: Double; Z: Double; var XRef: OleVariant; 
  4716.                           var YRef: OleVariant; var ZRef: OleVariant): IMatrix; dispid 1610743909;
  4717.     function MoveRelative(X: Double; Y: Double; Z: Double): IMatrix; dispid 1610743910;
  4718.     procedure Transform(const Transform: IMatrix); dispid 1610743911;
  4719.     procedure Align(AlignType: ImsiAlignType); dispid 1610743912;
  4720.     procedure AlignAlongLine(X0: Double; Y0: Double; Z0: Double; X1: Double; Y1: Double; Z1: Double); dispid 1610743913;
  4721.     function _FindIndex(g: Integer): Integer; dispid 1610743914;
  4722.     function QuerySet(const Query: WideString): GraphicSet; dispid 1610743915;
  4723.     function AddPolys(Type_: ImsiPolyType; var Coords: OleVariant): GraphicSet; dispid 1610743916;
  4724.     procedure CreateDragOutline(var Coords: OleVariant); dispid 1610743917;
  4725.     function AddPolylines(NumberOfPolylines: Integer; var Coords: OleVariant; Closed: IMSI_BOOL): GraphicSet; dispid 1610743918;
  4726.     function GraphicFromID(ID: Integer): IGraphic; dispid 1610743919;
  4727.     function AddAttributeDefinition(const Tag: WideString; X0: Double; Y0: Double; Z0: Double; 
  4728.                                     Height: Double; var Angle: OleVariant; var Width: OleVariant; 
  4729.                                     var Offset: OleVariant; var Justification: OleVariant; 
  4730.                                     var AttFlags: OleVariant; var Default: OleVariant; 
  4731.                                     var Prompt: OleVariant): IGraphic; dispid 1610743920;
  4732.     procedure PrintOut(var From: OleVariant; var To_: OleVariant; var Copies: OleVariant; 
  4733.                        var ActivePrinter: OleVariant; var OutputFileName: OleVariant; 
  4734.                        var FitToPage: OleVariant; var Collate: OleVariant); dispid 1610743921;
  4735.     procedure SaveAs(const Filename: WideString; var Filter: OleVariant); dispid 1610743922;
  4736.   end;
  4737.  
  4738. // *********************************************************************//
  4739. // Interface: Tables
  4740. // Flags:     (4416) Dual OleAutomation Dispatchable
  4741. // GUID:      {6A481139-E531-11CF-A115-00A024158DAF}
  4742. // *********************************************************************//
  4743.   Tables = interface(IDispatch)
  4744.     ['{6A481139-E531-11CF-A115-00A024158DAF}']
  4745.     function Get_Application_: IApplication; safecall;
  4746.     function Get_Count: Integer; safecall;
  4747.     function Get_Item(var Index: OleVariant): Table; safecall;
  4748.     function Get_Parent: IDispatch; safecall;
  4749.     function Get__NewEnum: IUnknown; safecall;
  4750.     property Application_: IApplication read Get_Application_;
  4751.     property Count: Integer read Get_Count;
  4752.     property Item[var Index: OleVariant]: Table read Get_Item;
  4753.     property Parent: IDispatch read Get_Parent;
  4754.     property _NewEnum: IUnknown read Get__NewEnum;
  4755.   end;
  4756.  
  4757. // *********************************************************************//
  4758. // DispIntf:  TablesDisp
  4759. // Flags:     (4416) Dual OleAutomation Dispatchable
  4760. // GUID:      {6A481139-E531-11CF-A115-00A024158DAF}
  4761. // *********************************************************************//
  4762.   TablesDisp = dispinterface
  4763.     ['{6A481139-E531-11CF-A115-00A024158DAF}']
  4764.     property Application_: IApplication readonly dispid 1610743808;
  4765.     property Count: Integer readonly dispid 1610743809;
  4766.     property Item[var Index: OleVariant]: Table readonly dispid 0; default;
  4767.     property Parent: IDispatch readonly dispid 1610743811;
  4768.     property _NewEnum: IUnknown readonly dispid -4;
  4769.   end;
  4770.  
  4771. // *********************************************************************//
  4772. // Interface: Table
  4773. // Flags:     (4416) Dual OleAutomation Dispatchable
  4774. // GUID:      {6A481138-E531-11CF-A115-00A024158DAF}
  4775. // *********************************************************************//
  4776.   Table = interface(IDispatch)
  4777.     ['{6A481138-E531-11CF-A115-00A024158DAF}']
  4778.     function Get_Application_: IApplication; safecall;
  4779.     function Get_Count: Integer; safecall;
  4780.     function Get_EntryName(Index: Integer): WideString; safecall;
  4781.     function Get_EntryValue(Index: Integer): WideString; safecall;
  4782.     function Get_Index: Integer; safecall;
  4783.     function Get_Name: WideString; safecall;
  4784.     function Get_Parent: IDispatch; safecall;
  4785.     procedure Clear; safecall;
  4786.     procedure Delete; safecall;
  4787.     procedure Open(var ProfileSection: OleVariant; var ProfileName: OleVariant); safecall;
  4788.     procedure Save(var ProfileSection: OleVariant; var ProfileName: OleVariant); safecall;
  4789.     function _FindIndex(TableEntryID: Integer): Integer; safecall;
  4790.     function _ObjectFromID(TableEntryID: Integer): IDispatch; safecall;
  4791.     property Application_: IApplication read Get_Application_;
  4792.     property Count: Integer read Get_Count;
  4793.     property EntryName[Index: Integer]: WideString read Get_EntryName;
  4794.     property EntryValue[Index: Integer]: WideString read Get_EntryValue;
  4795.     property Index: Integer read Get_Index;
  4796.     property Name: WideString read Get_Name;
  4797.     property Parent: IDispatch read Get_Parent;
  4798.   end;
  4799.  
  4800. // *********************************************************************//
  4801. // DispIntf:  TableDisp
  4802. // Flags:     (4416) Dual OleAutomation Dispatchable
  4803. // GUID:      {6A481138-E531-11CF-A115-00A024158DAF}
  4804. // *********************************************************************//
  4805.   TableDisp = dispinterface
  4806.     ['{6A481138-E531-11CF-A115-00A024158DAF}']
  4807.     property Application_: IApplication readonly dispid 1610743808;
  4808.     property Count: Integer readonly dispid 1610743809;
  4809.     property EntryName[Index: Integer]: WideString readonly dispid 1610743810;
  4810.     property EntryValue[Index: Integer]: WideString readonly dispid 1610743811;
  4811.     property Index: Integer readonly dispid 1610743812;
  4812.     property Name: WideString readonly dispid 1610743813;
  4813.     property Parent: IDispatch readonly dispid 1610743814;
  4814.     procedure Clear; dispid 1610743815;
  4815.     procedure Delete; dispid 1610743816;
  4816.     procedure Open(var ProfileSection: OleVariant; var ProfileName: OleVariant); dispid 1610743817;
  4817.     procedure Save(var ProfileSection: OleVariant; var ProfileName: OleVariant); dispid 1610743818;
  4818.     function _FindIndex(TableEntryID: Integer): Integer; dispid 1610743819;
  4819.     function _ObjectFromID(TableEntryID: Integer): IDispatch; dispid 1610743820;
  4820.   end;
  4821.  
  4822. // *********************************************************************//
  4823. // Interface: CommandBars
  4824. // Flags:     (4416) Dual OleAutomation Dispatchable
  4825. // GUID:      {6A48112B-E531-11CF-A115-00A024158DAF}
  4826. // *********************************************************************//
  4827.   CommandBars = interface(IDispatch)
  4828.     ['{6A48112B-E531-11CF-A115-00A024158DAF}']
  4829.     function Get_ActiveMenuBar: CommandBar; safecall;
  4830.     function Get_Application_: IApplication; safecall;
  4831.     function Get_Count: Integer; safecall;
  4832.     function Get_Item(var Index: OleVariant): CommandBar; safecall;
  4833.     function Get_Parent: IDispatch; safecall;
  4834.     function Get__NewEnum: IUnknown; safecall;
  4835.     function Add(const Name: WideString; var Position: OleVariant; var MenuBar: OleVariant; 
  4836.                  var Temporary: OleVariant): CommandBar; safecall;
  4837.     procedure AddTabbedBar(const prop: CommandBar; var Position: OleVariant); safecall;
  4838.     function FindControl(Type_: ImsiControlType; var ID: OleVariant; var Tag: OleVariant; 
  4839.                          var Visible: OleVariant): CommandBarControl; safecall;
  4840.     function FindControlId(Type_: ImsiControlType; var CommandName: OleVariant; 
  4841.                            var Caption: OleVariant; var Tag: OleVariant; var Visible: OleVariant): Integer; safecall;
  4842.     procedure Open(const Filename: WideString; var Sections: OleVariant); safecall;
  4843.     procedure Save(const Filename: WideString; var Sections: OleVariant); safecall;
  4844.     property ActiveMenuBar: CommandBar read Get_ActiveMenuBar;
  4845.     property Application_: IApplication read Get_Application_;
  4846.     property Count: Integer read Get_Count;
  4847.     property Item[var Index: OleVariant]: CommandBar read Get_Item;
  4848.     property Parent: IDispatch read Get_Parent;
  4849.     property _NewEnum: IUnknown read Get__NewEnum;
  4850.   end;
  4851.  
  4852. // *********************************************************************//
  4853. // DispIntf:  CommandBarsDisp
  4854. // Flags:     (4416) Dual OleAutomation Dispatchable
  4855. // GUID:      {6A48112B-E531-11CF-A115-00A024158DAF}
  4856. // *********************************************************************//
  4857.   CommandBarsDisp = dispinterface
  4858.     ['{6A48112B-E531-11CF-A115-00A024158DAF}']
  4859.     property ActiveMenuBar: CommandBar readonly dispid 1610743808;
  4860.     property Application_: IApplication readonly dispid 1610743809;
  4861.     property Count: Integer readonly dispid 1610743810;
  4862.     property Item[var Index: OleVariant]: CommandBar readonly dispid 0; default;
  4863.     property Parent: IDispatch readonly dispid 1610743812;
  4864.     property _NewEnum: IUnknown readonly dispid -4;
  4865.     function Add(const Name: WideString; var Position: OleVariant; var MenuBar: OleVariant; 
  4866.                  var Temporary: OleVariant): CommandBar; dispid 1610743814;
  4867.     procedure AddTabbedBar(const prop: CommandBar; var Position: OleVariant); dispid 1610743815;
  4868.     function FindControl(Type_: ImsiControlType; var ID: OleVariant; var Tag: OleVariant; 
  4869.                          var Visible: OleVariant): CommandBarControl; dispid 1610743816;
  4870.     function FindControlId(Type_: ImsiControlType; var CommandName: OleVariant; 
  4871.                            var Caption: OleVariant; var Tag: OleVariant; var Visible: OleVariant): Integer; dispid 1610743817;
  4872.     procedure Open(const Filename: WideString; var Sections: OleVariant); dispid 1610743818;
  4873.     procedure Save(const Filename: WideString; var Sections: OleVariant); dispid 1610743819;
  4874.   end;
  4875.  
  4876. // *********************************************************************//
  4877. // Interface: CommandBar
  4878. // Flags:     (4416) Dual OleAutomation Dispatchable
  4879. // GUID:      {6A48112A-E531-11CF-A115-00A024158DAF}
  4880. // *********************************************************************//
  4881.   CommandBar = interface(IDispatch)
  4882.     ['{6A48112A-E531-11CF-A115-00A024158DAF}']
  4883.     function Get_Application_: IApplication; safecall;
  4884.     function Get_Builtin: IMSI_BOOL; safecall;
  4885.     function Get_Controls_: CommandBarControls; safecall;
  4886.     function Get_Enabled: IMSI_BOOL; safecall;
  4887.     procedure Set_Enabled(prop: IMSI_BOOL); safecall;
  4888.     function Get_Height: Double; safecall;
  4889.     procedure Set_Height(prop: Double); safecall;
  4890.     function Get_Index: Integer; safecall;
  4891.     function Get_Left: Double; safecall;
  4892.     procedure Set_Left(prop: Double); safecall;
  4893.     function Get_Name: WideString; safecall;
  4894.     procedure Set_Name(const prop: WideString); safecall;
  4895.     function Get_Parent: IDispatch; safecall;
  4896.     function Get_Position: ImsiBarPosition; safecall;
  4897.     procedure Set_Position(prop: ImsiBarPosition); safecall;
  4898.     function Get_Protection: ImsiBarProtection; safecall;
  4899.     procedure Set_Protection(prop: ImsiBarProtection); safecall;
  4900.     function Get_RowIndex: Integer; safecall;
  4901.     procedure Set_RowIndex(prop: Integer); safecall;
  4902.     function Get_TabIndex: Integer; safecall;
  4903.     procedure Set_TabIndex(prop: Integer); safecall;
  4904.     function Get_Tabs: CommandBars; safecall;
  4905.     function Get_Temporary: IMSI_BOOL; safecall;
  4906.     procedure Set_Temporary(prop: IMSI_BOOL); safecall;
  4907.     function Get_Top: Double; safecall;
  4908.     procedure Set_Top(prop: Double); safecall;
  4909.     function Get_Type_: ImsiBarType; safecall;
  4910.     function Get_Visible: IMSI_BOOL; safecall;
  4911.     procedure Set_Visible(prop: IMSI_BOOL); safecall;
  4912.     function Get_Width: Double; safecall;
  4913.     procedure Set_Width(prop: Double); safecall;
  4914.     function Get__Info: Integer; safecall;
  4915.     procedure Delete; safecall;
  4916.     function FindControl(Type_: ImsiControlType; var ID: OleVariant; var Tag: OleVariant; 
  4917.                          var Visible: OleVariant; var Recursive: OleVariant): CommandBarControl; safecall;
  4918.     procedure Reset; safecall;
  4919.     property Application_: IApplication read Get_Application_;
  4920.     property Builtin: IMSI_BOOL read Get_Builtin;
  4921.     property Controls_: CommandBarControls read Get_Controls_;
  4922.     property Enabled: IMSI_BOOL read Get_Enabled write Set_Enabled;
  4923.     property Height: Double read Get_Height write Set_Height;
  4924.     property Index: Integer read Get_Index;
  4925.     property Left: Double read Get_Left write Set_Left;
  4926.     property Name: WideString read Get_Name write Set_Name;
  4927.     property Parent: IDispatch read Get_Parent;
  4928.     property Position: ImsiBarPosition read Get_Position write Set_Position;
  4929.     property Protection: ImsiBarProtection read Get_Protection write Set_Protection;
  4930.     property RowIndex: Integer read Get_RowIndex write Set_RowIndex;
  4931.     property TabIndex: Integer read Get_TabIndex write Set_TabIndex;
  4932.     property Tabs: CommandBars read Get_Tabs;
  4933.     property Temporary: IMSI_BOOL read Get_Temporary write Set_Temporary;
  4934.     property Top: Double read Get_Top write Set_Top;
  4935.     property Type_: ImsiBarType read Get_Type_;
  4936.     property Visible: IMSI_BOOL read Get_Visible write Set_Visible;
  4937.     property Width: Double read Get_Width write Set_Width;
  4938.     property _Info: Integer read Get__Info;
  4939.   end;
  4940.  
  4941. // *********************************************************************//
  4942. // DispIntf:  CommandBarDisp
  4943. // Flags:     (4416) Dual OleAutomation Dispatchable
  4944. // GUID:      {6A48112A-E531-11CF-A115-00A024158DAF}
  4945. // *********************************************************************//
  4946.   CommandBarDisp = dispinterface
  4947.     ['{6A48112A-E531-11CF-A115-00A024158DAF}']
  4948.     property Application_: IApplication readonly dispid 1610743808;
  4949.     property Builtin: IMSI_BOOL readonly dispid 1610743809;
  4950.     property Controls_: CommandBarControls readonly dispid 1610743810;
  4951.     property Enabled: IMSI_BOOL dispid 1610743811;
  4952.     property Height: Double dispid 1610743813;
  4953.     property Index: Integer readonly dispid 1610743815;
  4954.     property Left: Double dispid 1610743816;
  4955.     property Name: WideString dispid 1610743818;
  4956.     property Parent: IDispatch readonly dispid 1610743820;
  4957.     property Position: ImsiBarPosition dispid 1610743821;
  4958.     property Protection: ImsiBarProtection dispid 1610743823;
  4959.     property RowIndex: Integer dispid 1610743825;
  4960.     property TabIndex: Integer dispid 1610743827;
  4961.     property Tabs: CommandBars readonly dispid 1610743829;
  4962.     property Temporary: IMSI_BOOL dispid 1610743830;
  4963.     property Top: Double dispid 1610743832;
  4964.     property Type_: ImsiBarType readonly dispid 1610743834;
  4965.     property Visible: IMSI_BOOL dispid 1610743835;
  4966.     property Width: Double dispid 1610743837;
  4967.     property _Info: Integer readonly dispid 1610743839;
  4968.     procedure Delete; dispid 1610743840;
  4969.     function FindControl(Type_: ImsiControlType; var ID: OleVariant; var Tag: OleVariant; 
  4970.                          var Visible: OleVariant; var Recursive: OleVariant): CommandBarControl; dispid 1610743841;
  4971.     procedure Reset; dispid 1610743842;
  4972.   end;
  4973.  
  4974. // *********************************************************************//
  4975. // Interface: CommandBarControls
  4976. // Flags:     (4416) Dual OleAutomation Dispatchable
  4977. // GUID:      {6A481140-E531-11CF-A115-00A024158DAF}
  4978. // *********************************************************************//
  4979.   CommandBarControls = interface(IDispatch)
  4980.     ['{6A481140-E531-11CF-A115-00A024158DAF}']
  4981.     function Get_Application_: IApplication; safecall;
  4982.     function Get_Count: Integer; safecall;
  4983.     function Get_Item(var Index: OleVariant): CommandBarControl; safecall;
  4984.     function Get_Parent: IDispatch; safecall;
  4985.     function Get__NewEnum: IUnknown; safecall;
  4986.     function Add(Type_: ImsiControlType; var ID: OleVariant; var Parameter: OleVariant; 
  4987.                  var Before: OleVariant; var Temporary: OleVariant): CommandBarControl; safecall;
  4988.     property Application_: IApplication read Get_Application_;
  4989.     property Count: Integer read Get_Count;
  4990.     property Item[var Index: OleVariant]: CommandBarControl read Get_Item;
  4991.     property Parent: IDispatch read Get_Parent;
  4992.     property _NewEnum: IUnknown read Get__NewEnum;
  4993.   end;
  4994.  
  4995. // *********************************************************************//
  4996. // DispIntf:  CommandBarControlsDisp
  4997. // Flags:     (4416) Dual OleAutomation Dispatchable
  4998. // GUID:      {6A481140-E531-11CF-A115-00A024158DAF}
  4999. // *********************************************************************//
  5000.   CommandBarControlsDisp = dispinterface
  5001.     ['{6A481140-E531-11CF-A115-00A024158DAF}']
  5002.     property Application_: IApplication readonly dispid 1610743808;
  5003.     property Count: Integer readonly dispid 1610743809;
  5004.     property Item[var Index: OleVariant]: CommandBarControl readonly dispid 0; default;
  5005.     property Parent: IDispatch readonly dispid 1610743811;
  5006.     property _NewEnum: IUnknown readonly dispid -4;
  5007.     function Add(Type_: ImsiControlType; var ID: OleVariant; var Parameter: OleVariant; 
  5008.                  var Before: OleVariant; var Temporary: OleVariant): CommandBarControl; dispid 1610743813;
  5009.   end;
  5010.  
  5011. // *********************************************************************//
  5012. // Interface: CommandBarControl
  5013. // Flags:     (4416) Dual OleAutomation Dispatchable
  5014. // GUID:      {6A48113F-E531-11CF-A115-00A024158DAF}
  5015. // *********************************************************************//
  5016.   CommandBarControl = interface(IDispatch)
  5017.     ['{6A48113F-E531-11CF-A115-00A024158DAF}']
  5018.     function Get_Application_: IApplication; safecall;
  5019.     function Get_BeginGroup: IMSI_BOOL; safecall;
  5020.     procedure Set_BeginGroup(prop: IMSI_BOOL); safecall;
  5021.     function Get_Builtin: IMSI_BOOL; safecall;
  5022.     function Get_Caption: WideString; safecall;
  5023.     procedure Set_Caption(const prop: WideString); safecall;
  5024.     function Get_CommandBar: CommandBar; safecall;
  5025.     function Get_Controls_: CommandBarControls; safecall;
  5026.     function Get_Description: WideString; safecall;
  5027.     procedure Set_Description(const prop: WideString); safecall;
  5028.     function Get_Enabled: IMSI_BOOL; safecall;
  5029.     procedure Set_Enabled(prop: IMSI_BOOL); safecall;
  5030.     function Get_Height: Double; safecall;
  5031.     procedure Set_Height(prop: Double); safecall;
  5032.     function Get_ID: Integer; safecall;
  5033.     function Get_Index: Integer; safecall;
  5034.     function Get_Left: Double; safecall;
  5035.     function Get_OLEMenuGroup: ImsiOleMenuGroup; safecall;
  5036.     procedure Set_OLEMenuGroup(prop: ImsiOleMenuGroup); safecall;
  5037.     function Get_OnAction: OleVariant; safecall;
  5038.     procedure Set_OnAction(var prop: OleVariant); safecall;
  5039.     function Get_Parameter: WideString; safecall;
  5040.     procedure Set_Parameter(const prop: WideString); safecall;
  5041.     function Get_Parent: IDispatch; safecall;
  5042.     function Get_Tag: WideString; safecall;
  5043.     procedure Set_Tag(const prop: WideString); safecall;
  5044.     function Get_Temporary: IMSI_BOOL; safecall;
  5045.     procedure Set_Temporary(prop: IMSI_BOOL); safecall;
  5046.     function Get_TooltipText(lcid: Integer): WideString; safecall;
  5047.     procedure Set_TooltipText(lcid: Integer; const prop: WideString); safecall;
  5048.     function Get_Top: Double; safecall;
  5049.     function Get_Type_: ImsiControlType; safecall;
  5050.     function Get_Visible: IMSI_BOOL; safecall;
  5051.     procedure Set_Visible(prop: IMSI_BOOL); safecall;
  5052.     function Get_Width: Double; safecall;
  5053.     procedure Set_Width(prop: Double); safecall;
  5054.     function Get__Info: Integer; safecall;
  5055.     function Copy(const Bar: CommandBar; var Before: OleVariant): CommandBarControl; safecall;
  5056.     procedure Delete(var Temporary: OleVariant); safecall;
  5057.     procedure Execute; safecall;
  5058.     function Move(const Bar: CommandBar; var Before: OleVariant): CommandBarControl; safecall;
  5059.     procedure Reset; safecall;
  5060.     procedure SetFocus; safecall;
  5061.     property Application_: IApplication read Get_Application_;
  5062.     property BeginGroup: IMSI_BOOL read Get_BeginGroup write Set_BeginGroup;
  5063.     property Builtin: IMSI_BOOL read Get_Builtin;
  5064.     property Caption: WideString read Get_Caption write Set_Caption;
  5065.     property CommandBar: CommandBar read Get_CommandBar;
  5066.     property Controls_: CommandBarControls read Get_Controls_;
  5067.     property Description: WideString read Get_Description write Set_Description;
  5068.     property Enabled: IMSI_BOOL read Get_Enabled write Set_Enabled;
  5069.     property Height: Double read Get_Height write Set_Height;
  5070.     property ID: Integer read Get_ID;
  5071.     property Index: Integer read Get_Index;
  5072.     property Left: Double read Get_Left;
  5073.     property OLEMenuGroup: ImsiOleMenuGroup read Get_OLEMenuGroup write Set_OLEMenuGroup;
  5074.     property Parameter: WideString read Get_Parameter write Set_Parameter;
  5075.     property Parent: IDispatch read Get_Parent;
  5076.     property Tag: WideString read Get_Tag write Set_Tag;
  5077.     property Temporary: IMSI_BOOL read Get_Temporary write Set_Temporary;
  5078.     property TooltipText[lcid: Integer]: WideString read Get_TooltipText write Set_TooltipText;
  5079.     property Top: Double read Get_Top;
  5080.     property Type_: ImsiControlType read Get_Type_;
  5081.     property Visible: IMSI_BOOL read Get_Visible write Set_Visible;
  5082.     property Width: Double read Get_Width write Set_Width;
  5083.     property _Info: Integer read Get__Info;
  5084.   end;
  5085.  
  5086. // *********************************************************************//
  5087. // DispIntf:  CommandBarControlDisp
  5088. // Flags:     (4416) Dual OleAutomation Dispatchable
  5089. // GUID:      {6A48113F-E531-11CF-A115-00A024158DAF}
  5090. // *********************************************************************//
  5091.   CommandBarControlDisp = dispinterface
  5092.     ['{6A48113F-E531-11CF-A115-00A024158DAF}']
  5093.     property Application_: IApplication readonly dispid 1610743808;
  5094.     property BeginGroup: IMSI_BOOL dispid 1610743809;
  5095.     property Builtin: IMSI_BOOL readonly dispid 1610743811;
  5096.     property Caption: WideString dispid 1610743812;
  5097.     property CommandBar: CommandBar readonly dispid 1610743814;
  5098.     property Controls_: CommandBarControls readonly dispid 1610743815;
  5099.     property Description: WideString dispid 1610743816;
  5100.     property Enabled: IMSI_BOOL dispid 1610743818;
  5101.     property Height: Double dispid 1610743820;
  5102.     property ID: Integer readonly dispid 1610743822;
  5103.     property Index: Integer readonly dispid 1610743823;
  5104.     property Left: Double readonly dispid 1610743824;
  5105.     property OLEMenuGroup: ImsiOleMenuGroup dispid 1610743825;
  5106.     function OnAction: OleVariant; dispid 1610743827;
  5107.     property Parameter: WideString dispid 1610743829;
  5108.     property Parent: IDispatch readonly dispid 1610743831;
  5109.     property Tag: WideString dispid 1610743832;
  5110.     property Temporary: IMSI_BOOL dispid 1610743834;
  5111.     property TooltipText[lcid: Integer]: WideString dispid 1610743836;
  5112.     property Top: Double readonly dispid 1610743838;
  5113.     property Type_: ImsiControlType readonly dispid 1610743839;
  5114.     property Visible: IMSI_BOOL dispid 1610743840;
  5115.     property Width: Double dispid 1610743842;
  5116.     property _Info: Integer readonly dispid 1610743844;
  5117.     function Copy(const Bar: CommandBar; var Before: OleVariant): CommandBarControl; dispid 1610743845;
  5118.     procedure Delete(var Temporary: OleVariant); dispid 1610743846;
  5119.     procedure Execute; dispid 1610743847;
  5120.     function Move(const Bar: CommandBar; var Before: OleVariant): CommandBarControl; dispid 1610743848;
  5121.     procedure Reset; dispid 1610743849;
  5122.     procedure SetFocus; dispid 1610743850;
  5123.   end;
  5124.  
  5125. // *********************************************************************//
  5126. // Interface: Tools
  5127. // Flags:     (4416) Dual OleAutomation Dispatchable
  5128. // GUID:      {6A48112D-E531-11CF-A115-00A024158DAF}
  5129. // *********************************************************************//
  5130.   Tools = interface(IDispatch)
  5131.     ['{6A48112D-E531-11CF-A115-00A024158DAF}']
  5132.     function Get_ActiveTool: Tool; safecall;
  5133.     function Get_Application_: IApplication; safecall;
  5134.     function Get_Count: Integer; safecall;
  5135.     function Get_Item(var Index: OleVariant): Tool; safecall;
  5136.     function Get_Parent: IApplication; safecall;
  5137.     function Get__NewEnum: IUnknown; safecall;
  5138.     property ActiveTool: Tool read Get_ActiveTool;
  5139.     property Application_: IApplication read Get_Application_;
  5140.     property Count: Integer read Get_Count;
  5141.     property Item[var Index: OleVariant]: Tool read Get_Item;
  5142.     property Parent: IApplication read Get_Parent;
  5143.     property _NewEnum: IUnknown read Get__NewEnum;
  5144.   end;
  5145.  
  5146. // *********************************************************************//
  5147. // DispIntf:  ToolsDisp
  5148. // Flags:     (4416) Dual OleAutomation Dispatchable
  5149. // GUID:      {6A48112D-E531-11CF-A115-00A024158DAF}
  5150. // *********************************************************************//
  5151.   ToolsDisp = dispinterface
  5152.     ['{6A48112D-E531-11CF-A115-00A024158DAF}']
  5153.     property ActiveTool: Tool readonly dispid 1610743808;
  5154.     property Application_: IApplication readonly dispid 1610743809;
  5155.     property Count: Integer readonly dispid 1610743810;
  5156.     property Item[var Index: OleVariant]: Tool readonly dispid 0; default;
  5157.     property Parent: IApplication readonly dispid 1610743812;
  5158.     property _NewEnum: IUnknown readonly dispid -4;
  5159.   end;
  5160.  
  5161. // *********************************************************************//
  5162. // Interface: Tool
  5163. // Flags:     (4416) Dual OleAutomation Dispatchable
  5164. // GUID:      {6A48112C-E531-11CF-A115-00A024158DAF}
  5165. // *********************************************************************//
  5166.   Tool = interface(IDispatch)
  5167.     ['{6A48112C-E531-11CF-A115-00A024158DAF}']
  5168.     function Get_Active: IMSI_BOOL; safecall;
  5169.     function Get_Application_: IApplication; safecall;
  5170.     function Get_Builtin: IMSI_BOOL; safecall;
  5171.     function Get_Category(lcid: Integer): WideString; safecall;
  5172.     procedure Set_Category(lcid: Integer; const prop: WideString); safecall;
  5173.     function Get_CommandName(lcid: Integer): WideString; safecall;
  5174.     procedure Set_CommandName(lcid: Integer; const prop: WideString); safecall;
  5175.     function Get_Enabled: IMSI_BOOL; safecall;
  5176.     procedure Set_Enabled(prop: IMSI_BOOL); safecall;
  5177.     function Get_ID: Integer; safecall;
  5178.     function Get_Index: Integer; safecall;
  5179.     function Get_MenuText(lcid: Integer): WideString; safecall;
  5180.     procedure Set_MenuText(lcid: Integer; const prop: WideString); safecall;
  5181.     function Get_Parent: IApplication; safecall;
  5182.     function Get_Prompt(lcid: Integer): WideString; safecall;
  5183.     procedure Set_Prompt(lcid: Integer; const prop: WideString); safecall;
  5184.     function Get_TooltipText(lcid: Integer): WideString; safecall;
  5185.     procedure Set_TooltipText(lcid: Integer; const prop: WideString); safecall;
  5186.     procedure Activate; safecall;
  5187.     procedure Delete; safecall;
  5188.     property Active: IMSI_BOOL read Get_Active;
  5189.     property Application_: IApplication read Get_Application_;
  5190.     property Builtin: IMSI_BOOL read Get_Builtin;
  5191.     property Category[lcid: Integer]: WideString read Get_Category write Set_Category;
  5192.     property CommandName[lcid: Integer]: WideString read Get_CommandName write Set_CommandName;
  5193.     property Enabled: IMSI_BOOL read Get_Enabled write Set_Enabled;
  5194.     property ID: Integer read Get_ID;
  5195.     property Index: Integer read Get_Index;
  5196.     property MenuText[lcid: Integer]: WideString read Get_MenuText write Set_MenuText;
  5197.     property Parent: IApplication read Get_Parent;
  5198.     property Prompt[lcid: Integer]: WideString read Get_Prompt write Set_Prompt;
  5199.     property TooltipText[lcid: Integer]: WideString read Get_TooltipText write Set_TooltipText;
  5200.   end;
  5201.  
  5202. // *********************************************************************//
  5203. // DispIntf:  ToolDisp
  5204. // Flags:     (4416) Dual OleAutomation Dispatchable
  5205. // GUID:      {6A48112C-E531-11CF-A115-00A024158DAF}
  5206. // *********************************************************************//
  5207.   ToolDisp = dispinterface
  5208.     ['{6A48112C-E531-11CF-A115-00A024158DAF}']
  5209.     property Active: IMSI_BOOL readonly dispid 1610743808;
  5210.     property Application_: IApplication readonly dispid 1610743809;
  5211.     property Builtin: IMSI_BOOL readonly dispid 1610743810;
  5212.     property Category[lcid: Integer]: WideString dispid 1610743811;
  5213.     property CommandName[lcid: Integer]: WideString dispid 1610743813;
  5214.     property Enabled: IMSI_BOOL dispid 1610743815;
  5215.     property ID: Integer readonly dispid 1610743817;
  5216.     property Index: Integer readonly dispid 1610743818;
  5217.     property MenuText[lcid: Integer]: WideString dispid 1610743819;
  5218.     property Parent: IApplication readonly dispid 1610743821;
  5219.     property Prompt[lcid: Integer]: WideString dispid 1610743822;
  5220.     property TooltipText[lcid: Integer]: WideString dispid 1610743824;
  5221.     procedure Activate; dispid 1610743826;
  5222.     procedure Delete; dispid 1610743827;
  5223.   end;
  5224.  
  5225. // *********************************************************************//
  5226. // Interface: Windows
  5227. // Flags:     (4416) Dual OleAutomation Dispatchable
  5228. // GUID:      {6A481125-E531-11CF-A115-00A024158DAF}
  5229. // *********************************************************************//
  5230.   Windows = interface(IDispatch)
  5231.     ['{6A481125-E531-11CF-A115-00A024158DAF}']
  5232.     function Get_Application_: IApplication; safecall;
  5233.     function Get_Count: Integer; safecall;
  5234.     function Get_Item(var Index: OleVariant): Window_; safecall;
  5235.     function Get_Parent: IDispatch; safecall;
  5236.     function Get__NewEnum: IUnknown; safecall;
  5237.     procedure Arrange(ArrangeStyle: ImsiArrangeStyle); safecall;
  5238.     property Application_: IApplication read Get_Application_;
  5239.     property Count: Integer read Get_Count;
  5240.     property Item[var Index: OleVariant]: Window_ read Get_Item;
  5241.     property Parent: IDispatch read Get_Parent;
  5242.     property _NewEnum: IUnknown read Get__NewEnum;
  5243.   end;
  5244.  
  5245. // *********************************************************************//
  5246. // DispIntf:  WindowsDisp
  5247. // Flags:     (4416) Dual OleAutomation Dispatchable
  5248. // GUID:      {6A481125-E531-11CF-A115-00A024158DAF}
  5249. // *********************************************************************//
  5250.   WindowsDisp = dispinterface
  5251.     ['{6A481125-E531-11CF-A115-00A024158DAF}']
  5252.     property Application_: IApplication readonly dispid 1610743808;
  5253.     property Count: Integer readonly dispid 1610743809;
  5254.     property Item[var Index: OleVariant]: Window_ readonly dispid 0; default;
  5255.     property Parent: IDispatch readonly dispid 1610743811;
  5256.     property _NewEnum: IUnknown readonly dispid -4;
  5257.     procedure Arrange(ArrangeStyle: ImsiArrangeStyle); dispid 1610743813;
  5258.   end;
  5259.  
  5260. // *********************************************************************//
  5261. // Interface: View
  5262. // Flags:     (4416) Dual OleAutomation Dispatchable
  5263. // GUID:      {6A481110-E531-11CF-A115-00A024158DAF}
  5264. // *********************************************************************//
  5265.   View = interface(IDispatch)
  5266.     ['{6A481110-E531-11CF-A115-00A024158DAF}']
  5267.     function Get_Application_: IApplication; safecall;
  5268.     function Get_Camera: ICamera; safecall;
  5269.     procedure Set_Camera(const prop: ICamera); safecall;
  5270.     function Get_CenterOnExtents: IMSI_BOOL; safecall;
  5271.     procedure Set_CenterOnExtents(prop: IMSI_BOOL); safecall;
  5272.     function Get_DC: Integer; safecall;
  5273.     procedure Set_DC(prop: Integer); safecall;
  5274.     function Get_Drawing: IDrawing; safecall;
  5275.     function Get_FixedAspectRatio: IMSI_BOOL; safecall;
  5276.     procedure Set_FixedAspectRatio(prop: IMSI_BOOL); safecall;
  5277.     function Get_HWND: Integer; safecall;
  5278.     procedure Set_HWND(prop: Integer); safecall;
  5279.     function Get_Index: Integer; safecall;
  5280.     function Get_MappingMode: Integer; safecall;
  5281.     procedure Set_MappingMode(prop: Integer); safecall;
  5282.     function Get_Margins: IMSI_BOOL; safecall;
  5283.     procedure Set_Margins(prop: IMSI_BOOL); safecall;
  5284.     function Get_Name: WideString; safecall;
  5285.     procedure Set_Name(const prop: WideString); safecall;
  5286.     function Get_ScreenHeight: Double; safecall;
  5287.     procedure Set_ScreenHeight(prop: Double); safecall;
  5288.     function Get_ScreenLeft: Double; safecall;
  5289.     procedure Set_ScreenLeft(prop: Double); safecall;
  5290.     function Get_ScreenTop: Double; safecall;
  5291.     procedure Set_ScreenTop(prop: Double); safecall;
  5292.     function Get_ScreenWidth: Double; safecall;
  5293.     procedure Set_ScreenWidth(prop: Double); safecall;
  5294.     function Get_Parent: IDrawing; safecall;
  5295.     function Get_Update: IMSI_BOOL; safecall;
  5296.     procedure Set_Update(prop: IMSI_BOOL); safecall;
  5297.     function Get_ViewHeight: Double; safecall;
  5298.     procedure Set_ViewHeight(prop: Double); safecall;
  5299.     function Get_ViewLeft: Double; safecall;
  5300.     procedure Set_ViewLeft(prop: Double); safecall;
  5301.     function Get_ViewTop: Double; safecall;
  5302.     procedure Set_ViewTop(prop: Double); safecall;
  5303.     function Get_ViewWidth: Double; safecall;
  5304.     procedure Set_ViewWidth(prop: Double); safecall;
  5305.     function Get__Handle: Integer; safecall;
  5306.     function CloseBitmapDC: Integer; safecall;
  5307.     function CloseMetafileDC: Integer; safecall;
  5308.     procedure Delete; safecall;
  5309.     function OpenBitmapDC: Integer; safecall;
  5310.     function OpenMetafileDC: Integer; safecall;
  5311.     function PickPoint(X: Double; Y: Double; var Aperture: OleVariant; var TopLevel: OleVariant; 
  5312.                        var Arcs: OleVariant; var Text: OleVariant; var Segments: OleVariant; 
  5313.                        var Blocks: OleVariant; var Invisible: OleVariant): PickResult; safecall;
  5314.     function PickRect(Left: Double; Top: Double; Right: Double; Bottom: Double; 
  5315.                       var TopLevel: OleVariant; var Arcs: OleVariant; var Text: OleVariant; 
  5316.                       var Segments: OleVariant; var Blocks: OleVariant; var Invisible: OleVariant): PickResult; safecall;
  5317.     function PickPolygon(const Polygon: IGraphic; var TopLevel: OleVariant; var Arcs: OleVariant; 
  5318.                          var Text: OleVariant; var Segments: OleVariant; var Blocks: OleVariant; 
  5319.                          var Invisible: OleVariant): PickResult; safecall;
  5320.     function PickCube(XMin: Double; YMin: Double; ZMin: Double; XMax: Double; YMax: Double; 
  5321.                       ZMax: Double; var TopLevel: OleVariant; var Arcs: OleVariant; 
  5322.                       var Text: OleVariant; var Segments: OleVariant; var Blocks: OleVariant; 
  5323.                       var Invisible: OleVariant): PickResult; safecall;
  5324.     procedure Refresh; safecall;
  5325.     procedure ScreenToView(XScreen: Double; YScreen: Double; out XView: Double; out YView: Double); safecall;
  5326.     function ViewToScreen(XView: Double; YView: Double; out XScreen: Double; out YScreen: Double): IMSI_BOOL; safecall;
  5327.     procedure ZoomToExtents; safecall;
  5328.     procedure GetMouseClick(out X: Double; out Y: Double); safecall;
  5329.     function _PickPoint(X: Double; Y: Double; Aperture: Double; Snap: Integer; GGD: Integer; 
  5330.                         bTopLevel: IMSI_BOOL; bInvisible: IMSI_BOOL): PickResult; safecall;
  5331.     function _PickRect(Left: Double; Top: Double; Right: Double; Bottom: Double; Snap: Integer; 
  5332.                        GGD: Integer; bTopLevel: IMSI_BOOL; bInvisible: IMSI_BOOL): PickResult; safecall;
  5333.     function _VirtualIntersection(V: Integer; g1: Integer; g2: Integer): PickResult; safecall;
  5334.     procedure DragOutline(var Coords: OleVariant; XScreen: Double; YScreen: Double; 
  5335.                           var DragState: OleVariant); safecall;
  5336.     procedure InvalidateObject(const Object_: IDispatch); safecall;
  5337.     procedure InvalidateScreenRect(Left: Double; Top: Double; Width: Double; Height: Double); safecall;
  5338.     procedure InvalidateViewRect(Left: Double; Top: Double; Width: Double; Height: Double); safecall;
  5339.     function Get_AutoRedraw: IMSI_BOOL; safecall;
  5340.     procedure Set_AutoRedraw(prop: IMSI_BOOL); safecall;
  5341.     procedure ZoomToNamedView(var NamedView: OleVariant); safecall;
  5342.     procedure RotateDragOutline(var Coords: OleVariant; Angle: Double; var DragState: OleVariant); safecall;
  5343.     function Get__Matrix: IMatrix; safecall;
  5344.     procedure Set__Matrix(const prop: IMatrix); safecall;
  5345.     function Get_SpaceMode: ImsiSpaceModeType; safecall;
  5346.     procedure Set_SpaceMode(pVal: ImsiSpaceModeType); safecall;
  5347.     function Get_ExternalView: Integer; safecall;
  5348.     procedure Set_ExternalView(pVal: Integer); safecall;
  5349.     procedure WorldToView(XWorld: Double; YWorld: Double; ZWorld: Double; out XView: Double; 
  5350.                           out YView: Double; out ZView: Double); safecall;
  5351.     procedure ViewToWorld(XView: Double; YView: Double; ZView: Double; out XWorld: Double; 
  5352.                           out YWorld: Double; out ZWorld: Double); safecall;
  5353.     property Application_: IApplication read Get_Application_;
  5354.     property Camera: ICamera read Get_Camera write Set_Camera;
  5355.     property CenterOnExtents: IMSI_BOOL read Get_CenterOnExtents write Set_CenterOnExtents;
  5356.     property DC: Integer read Get_DC write Set_DC;
  5357.     property Drawing: IDrawing read Get_Drawing;
  5358.     property FixedAspectRatio: IMSI_BOOL read Get_FixedAspectRatio write Set_FixedAspectRatio;
  5359.     property HWND: Integer read Get_HWND write Set_HWND;
  5360.     property Index: Integer read Get_Index;
  5361.     property MappingMode: Integer read Get_MappingMode write Set_MappingMode;
  5362.     property Margins: IMSI_BOOL read Get_Margins write Set_Margins;
  5363.     property Name: WideString read Get_Name write Set_Name;
  5364.     property ScreenHeight: Double read Get_ScreenHeight write Set_ScreenHeight;
  5365.     property ScreenLeft: Double read Get_ScreenLeft write Set_ScreenLeft;
  5366.     property ScreenTop: Double read Get_ScreenTop write Set_ScreenTop;
  5367.     property ScreenWidth: Double read Get_ScreenWidth write Set_ScreenWidth;
  5368.     property Parent: IDrawing read Get_Parent;
  5369.     property Update: IMSI_BOOL read Get_Update write Set_Update;
  5370.     property ViewHeight: Double read Get_ViewHeight write Set_ViewHeight;
  5371.     property ViewLeft: Double read Get_ViewLeft write Set_ViewLeft;
  5372.     property ViewTop: Double read Get_ViewTop write Set_ViewTop;
  5373.     property ViewWidth: Double read Get_ViewWidth write Set_ViewWidth;
  5374.     property _Handle: Integer read Get__Handle;
  5375.     property AutoRedraw: IMSI_BOOL read Get_AutoRedraw write Set_AutoRedraw;
  5376.     property _Matrix: IMatrix read Get__Matrix write Set__Matrix;
  5377.     property SpaceMode: ImsiSpaceModeType read Get_SpaceMode write Set_SpaceMode;
  5378.     property ExternalView: Integer read Get_ExternalView write Set_ExternalView;
  5379.   end;
  5380.  
  5381. // *********************************************************************//
  5382. // DispIntf:  ViewDisp
  5383. // Flags:     (4416) Dual OleAutomation Dispatchable
  5384. // GUID:      {6A481110-E531-11CF-A115-00A024158DAF}
  5385. // *********************************************************************//
  5386.   ViewDisp = dispinterface
  5387.     ['{6A481110-E531-11CF-A115-00A024158DAF}']
  5388.     property Application_: IApplication readonly dispid 1610743808;
  5389.     property Camera: ICamera dispid 1610743809;
  5390.     property CenterOnExtents: IMSI_BOOL dispid 1610743811;
  5391.     property DC: Integer dispid 1610743813;
  5392.     property Drawing: IDrawing readonly dispid 1610743815;
  5393.     property FixedAspectRatio: IMSI_BOOL dispid 1610743816;
  5394.     property HWND: Integer dispid 1610743818;
  5395.     property Index: Integer readonly dispid 1610743820;
  5396.     property MappingMode: Integer dispid 1610743821;
  5397.     property Margins: IMSI_BOOL dispid 1610743823;
  5398.     property Name: WideString dispid 1610743825;
  5399.     property ScreenHeight: Double dispid 1610743827;
  5400.     property ScreenLeft: Double dispid 1610743829;
  5401.     property ScreenTop: Double dispid 1610743831;
  5402.     property ScreenWidth: Double dispid 1610743833;
  5403.     property Parent: IDrawing readonly dispid 1610743835;
  5404.     property Update: IMSI_BOOL dispid 1610743836;
  5405.     property ViewHeight: Double dispid 1610743838;
  5406.     property ViewLeft: Double dispid 1610743840;
  5407.     property ViewTop: Double dispid 1610743842;
  5408.     property ViewWidth: Double dispid 1610743844;
  5409.     property _Handle: Integer readonly dispid 1610743846;
  5410.     function CloseBitmapDC: Integer; dispid 1610743847;
  5411.     function CloseMetafileDC: Integer; dispid 1610743848;
  5412.     procedure Delete; dispid 1610743849;
  5413.     function OpenBitmapDC: Integer; dispid 1610743850;
  5414.     function OpenMetafileDC: Integer; dispid 1610743851;
  5415.     function PickPoint(X: Double; Y: Double; var Aperture: OleVariant; var TopLevel: OleVariant; 
  5416.                        var Arcs: OleVariant; var Text: OleVariant; var Segments: OleVariant; 
  5417.                        var Blocks: OleVariant; var Invisible: OleVariant): PickResult; dispid 1610743852;
  5418.     function PickRect(Left: Double; Top: Double; Right: Double; Bottom: Double; 
  5419.                       var TopLevel: OleVariant; var Arcs: OleVariant; var Text: OleVariant; 
  5420.                       var Segments: OleVariant; var Blocks: OleVariant; var Invisible: OleVariant): PickResult; dispid 1610743853;
  5421.     function PickPolygon(const Polygon: IGraphic; var TopLevel: OleVariant; var Arcs: OleVariant; 
  5422.                          var Text: OleVariant; var Segments: OleVariant; var Blocks: OleVariant; 
  5423.                          var Invisible: OleVariant): PickResult; dispid 1610743854;
  5424.     function PickCube(XMin: Double; YMin: Double; ZMin: Double; XMax: Double; YMax: Double; 
  5425.                       ZMax: Double; var TopLevel: OleVariant; var Arcs: OleVariant; 
  5426.                       var Text: OleVariant; var Segments: OleVariant; var Blocks: OleVariant; 
  5427.                       var Invisible: OleVariant): PickResult; dispid 1610743855;
  5428.     procedure Refresh; dispid 1610743856;
  5429.     procedure ScreenToView(XScreen: Double; YScreen: Double; out XView: Double; out YView: Double); dispid 1610743857;
  5430.     function ViewToScreen(XView: Double; YView: Double; out XScreen: Double; out YScreen: Double): IMSI_BOOL; dispid 1610743858;
  5431.     procedure ZoomToExtents; dispid 1610743859;
  5432.     procedure GetMouseClick(out X: Double; out Y: Double); dispid 1610743860;
  5433.     function _PickPoint(X: Double; Y: Double; Aperture: Double; Snap: Integer; GGD: Integer; 
  5434.                         bTopLevel: IMSI_BOOL; bInvisible: IMSI_BOOL): PickResult; dispid 1610743861;
  5435.     function _PickRect(Left: Double; Top: Double; Right: Double; Bottom: Double; Snap: Integer; 
  5436.                        GGD: Integer; bTopLevel: IMSI_BOOL; bInvisible: IMSI_BOOL): PickResult; dispid 1610743862;
  5437.     function _VirtualIntersection(V: Integer; g1: Integer; g2: Integer): PickResult; dispid 1610743863;
  5438.     procedure DragOutline(var Coords: OleVariant; XScreen: Double; YScreen: Double; 
  5439.                           var DragState: OleVariant); dispid 1610743864;
  5440.     procedure InvalidateObject(const Object_: IDispatch); dispid 1610743865;
  5441.     procedure InvalidateScreenRect(Left: Double; Top: Double; Width: Double; Height: Double); dispid 1610743866;
  5442.     procedure InvalidateViewRect(Left: Double; Top: Double; Width: Double; Height: Double); dispid 1610743867;
  5443.     property AutoRedraw: IMSI_BOOL dispid 1610743868;
  5444.     procedure ZoomToNamedView(var NamedView: OleVariant); dispid 1610743870;
  5445.     procedure RotateDragOutline(var Coords: OleVariant; Angle: Double; var DragState: OleVariant); dispid 1610743871;
  5446.     property _Matrix: IMatrix dispid 1610743872;
  5447.     property SpaceMode: ImsiSpaceModeType dispid 1610743874;
  5448.     property ExternalView: Integer dispid 1610743876;
  5449.     procedure WorldToView(XWorld: Double; YWorld: Double; ZWorld: Double; out XView: Double; 
  5450.                           out YView: Double; out ZView: Double); dispid 1610743878;
  5451.     procedure ViewToWorld(XView: Double; YView: Double; ZView: Double; out XWorld: Double; 
  5452.                           out YWorld: Double; out ZWorld: Double); dispid 1610743879;
  5453.   end;
  5454.  
  5455. // *********************************************************************//
  5456. // Interface: ICamera
  5457. // Flags:     (4416) Dual OleAutomation Dispatchable
  5458. // GUID:      {6A481112-E531-11CF-A115-00A024158DAF}
  5459. // *********************************************************************//
  5460.   ICamera = interface(IDispatch)
  5461.     ['{6A481112-E531-11CF-A115-00A024158DAF}']
  5462.     function Get_Application_: IApplication; safecall;
  5463.     function Get_BackClip: Double; safecall;
  5464.     procedure Set_BackClip(prop: Double); safecall;
  5465.     function Get_Direction: IVertex; safecall;
  5466.     procedure Set_Direction(const prop: IVertex); safecall;
  5467.     function Get_FieldOfView: Double; safecall;
  5468.     procedure Set_FieldOfView(prop: Double); safecall;
  5469.     function Get_FrontClip: Double; safecall;
  5470.     procedure Set_FrontClip(prop: Double); safecall;
  5471.     function Get_Location: IVertex; safecall;
  5472.     procedure Set_Location(const prop: IVertex); safecall;
  5473.     function Get_LookAt: IVertex; safecall;
  5474.     procedure Set_LookAt(const prop: IVertex); safecall;
  5475.     function Get_Name: WideString; safecall;
  5476.     function Get_Parent: IDispatch; safecall;
  5477.     function Get_ProjectionType: ImsiProjection; safecall;
  5478.     procedure Set_ProjectionType(prop: ImsiProjection); safecall;
  5479.     function Get_Right: IVertex; safecall;
  5480.     procedure Set_Right(const prop: IVertex); safecall;
  5481.     function Get_Up: IVertex; safecall;
  5482.     procedure Set_Up(const prop: IVertex); safecall;
  5483.     function Duplicate: ICamera; safecall;
  5484.     procedure Orbit(Angle: Double; var CameraCoordinates: OleVariant; var XOrRight: OleVariant; 
  5485.                     var YOrUp: OleVariant; var ZOrDirection: OleVariant); safecall;
  5486.     procedure Pan(AngleRight: Double); safecall;
  5487.     procedure Rotate(Angle: Double; var CameraCoordinates: OleVariant; var XOrRight: OleVariant; 
  5488.                      var YOrUp: OleVariant; var ZOrDirection: OleVariant); safecall;
  5489.     procedure Slide(DistanceUp: Double; DistanceRight: Double); safecall;
  5490.     procedure Tilt(AngleUp: Double); safecall;
  5491.     procedure Track(DistanceForward: Double); safecall;
  5492.     procedure Zoom(ZoomFactor: Double); safecall;
  5493.     procedure CameraSetSpaceParameters(const pvPos: IVertex; const pvLook: IVertex; 
  5494.                                        const pvU: IVertex); safecall;
  5495.     function Get_Perspective: Integer; safecall;
  5496.     procedure Set_Perspective(pVal: Integer); safecall;
  5497.     property Application_: IApplication read Get_Application_;
  5498.     property BackClip: Double read Get_BackClip write Set_BackClip;
  5499.     property Direction: IVertex read Get_Direction write Set_Direction;
  5500.     property FieldOfView: Double read Get_FieldOfView write Set_FieldOfView;
  5501.     property FrontClip: Double read Get_FrontClip write Set_FrontClip;
  5502.     property Location: IVertex read Get_Location write Set_Location;
  5503.     property LookAt: IVertex read Get_LookAt write Set_LookAt;
  5504.     property Name: WideString read Get_Name;
  5505.     property Parent: IDispatch read Get_Parent;
  5506.     property ProjectionType: ImsiProjection read Get_ProjectionType write Set_ProjectionType;
  5507.     property Right: IVertex read Get_Right write Set_Right;
  5508.     property Up: IVertex read Get_Up write Set_Up;
  5509.     property Perspective: Integer read Get_Perspective write Set_Perspective;
  5510.   end;
  5511.  
  5512. // *********************************************************************//
  5513. // DispIntf:  ICameraDisp
  5514. // Flags:     (4416) Dual OleAutomation Dispatchable
  5515. // GUID:      {6A481112-E531-11CF-A115-00A024158DAF}
  5516. // *********************************************************************//
  5517.   ICameraDisp = dispinterface
  5518.     ['{6A481112-E531-11CF-A115-00A024158DAF}']
  5519.     property Application_: IApplication readonly dispid 1610743808;
  5520.     property BackClip: Double dispid 1610743809;
  5521.     property Direction: IVertex dispid 1610743811;
  5522.     property FieldOfView: Double dispid 1610743813;
  5523.     property FrontClip: Double dispid 1610743815;
  5524.     property Location: IVertex dispid 1610743817;
  5525.     property LookAt: IVertex dispid 1610743819;
  5526.     property Name: WideString readonly dispid 1610743821;
  5527.     property Parent: IDispatch readonly dispid 1610743822;
  5528.     property ProjectionType: ImsiProjection dispid 1610743823;
  5529.     property Right: IVertex dispid 1610743825;
  5530.     property Up: IVertex dispid 1610743827;
  5531.     function Duplicate: ICamera; dispid 1610743829;
  5532.     procedure Orbit(Angle: Double; var CameraCoordinates: OleVariant; var XOrRight: OleVariant; 
  5533.                     var YOrUp: OleVariant; var ZOrDirection: OleVariant); dispid 1610743830;
  5534.     procedure Pan(AngleRight: Double); dispid 1610743831;
  5535.     procedure Rotate(Angle: Double; var CameraCoordinates: OleVariant; var XOrRight: OleVariant; 
  5536.                      var YOrUp: OleVariant; var ZOrDirection: OleVariant); dispid 1610743832;
  5537.     procedure Slide(DistanceUp: Double; DistanceRight: Double); dispid 1610743833;
  5538.     procedure Tilt(AngleUp: Double); dispid 1610743834;
  5539.     procedure Track(DistanceForward: Double); dispid 1610743835;
  5540.     procedure Zoom(ZoomFactor: Double); dispid 1610743836;
  5541.     procedure CameraSetSpaceParameters(const pvPos: IVertex; const pvLook: IVertex; 
  5542.                                        const pvU: IVertex); dispid 1610743837;
  5543.     property Perspective: Integer dispid 1;
  5544.   end;
  5545.  
  5546. // *********************************************************************//
  5547. // Interface: PickResult
  5548. // Flags:     (4416) Dual OleAutomation Dispatchable
  5549. // GUID:      {6A481123-E531-11CF-A115-00A024158DAF}
  5550. // *********************************************************************//
  5551.   PickResult = interface(IDispatch)
  5552.     ['{6A481123-E531-11CF-A115-00A024158DAF}']
  5553.     function Get_Application_: IApplication; safecall;
  5554.     function Get_Count: Integer; safecall;
  5555.     function Get_Item(var Index: OleVariant): PickEntry; safecall;
  5556.     function Get_Parent: IDispatch; safecall;
  5557.     function Get_SnapModes: Integer; safecall;
  5558.     function Get_Vertices: Vertices; safecall;
  5559.     function Get__NewEnum: IUnknown; safecall;
  5560.     function Get_PickVertex: IVertex; safecall;
  5561.     property Application_: IApplication read Get_Application_;
  5562.     property Count: Integer read Get_Count;
  5563.     property Item[var Index: OleVariant]: PickEntry read Get_Item;
  5564.     property Parent: IDispatch read Get_Parent;
  5565.     property SnapModes: Integer read Get_SnapModes;
  5566.     property Vertices: Vertices read Get_Vertices;
  5567.     property _NewEnum: IUnknown read Get__NewEnum;
  5568.     property PickVertex: IVertex read Get_PickVertex;
  5569.   end;
  5570.  
  5571. // *********************************************************************//
  5572. // DispIntf:  PickResultDisp
  5573. // Flags:     (4416) Dual OleAutomation Dispatchable
  5574. // GUID:      {6A481123-E531-11CF-A115-00A024158DAF}
  5575. // *********************************************************************//
  5576.   PickResultDisp = dispinterface
  5577.     ['{6A481123-E531-11CF-A115-00A024158DAF}']
  5578.     property Application_: IApplication readonly dispid 1610743808;
  5579.     property Count: Integer readonly dispid 1610743809;
  5580.     property Item[var Index: OleVariant]: PickEntry readonly dispid 0; default;
  5581.     property Parent: IDispatch readonly dispid 1610743811;
  5582.     property SnapModes: Integer readonly dispid 1610743812;
  5583.     property Vertices: Vertices readonly dispid 1610743813;
  5584.     property _NewEnum: IUnknown readonly dispid -4;
  5585.     property PickVertex: IVertex readonly dispid 1610743815;
  5586.   end;
  5587.  
  5588. // *********************************************************************//
  5589. // Interface: PickEntry
  5590. // Flags:     (4416) Dual OleAutomation Dispatchable
  5591. // GUID:      {6A481122-E531-11CF-A115-00A024158DAF}
  5592. // *********************************************************************//
  5593.   PickEntry = interface(IDispatch)
  5594.     ['{6A481122-E531-11CF-A115-00A024158DAF}']
  5595.     function Get_Application_: IApplication; safecall;
  5596.     function Get_ClosestChildGraphic: IGraphic; safecall;
  5597.     function Get_ClosestFace: IGraphic; safecall;
  5598.     function Get_ClosestVertex: IVertex; safecall;
  5599.     function Get_ClosestSegmentVertex: IVertex; safecall;
  5600.     function Get_Depth: Double; safecall;
  5601.     function Get_Distance: Double; safecall;
  5602.     function Get_Drawing: IDrawing; safecall;
  5603.     function Get_Graphic: IGraphic; safecall;
  5604.     function Get_Index: Integer; safecall;
  5605.     function Get_OtherSegmentVertex: IVertex; safecall;
  5606.     function Get_Parent: IDispatch; safecall;
  5607.     function Get_RayPoint: IVertex; safecall;
  5608.     property Application_: IApplication read Get_Application_;
  5609.     property ClosestChildGraphic: IGraphic read Get_ClosestChildGraphic;
  5610.     property ClosestFace: IGraphic read Get_ClosestFace;
  5611.     property ClosestVertex: IVertex read Get_ClosestVertex;
  5612.     property ClosestSegmentVertex: IVertex read Get_ClosestSegmentVertex;
  5613.     property Depth: Double read Get_Depth;
  5614.     property Distance: Double read Get_Distance;
  5615.     property Drawing: IDrawing read Get_Drawing;
  5616.     property Graphic: IGraphic read Get_Graphic;
  5617.     property Index: Integer read Get_Index;
  5618.     property OtherSegmentVertex: IVertex read Get_OtherSegmentVertex;
  5619.     property Parent: IDispatch read Get_Parent;
  5620.     property RayPoint: IVertex read Get_RayPoint;
  5621.   end;
  5622.  
  5623. // *********************************************************************//
  5624. // DispIntf:  PickEntryDisp
  5625. // Flags:     (4416) Dual OleAutomation Dispatchable
  5626. // GUID:      {6A481122-E531-11CF-A115-00A024158DAF}
  5627. // *********************************************************************//
  5628.   PickEntryDisp = dispinterface
  5629.     ['{6A481122-E531-11CF-A115-00A024158DAF}']
  5630.     property Application_: IApplication readonly dispid 1610743808;
  5631.     property ClosestChildGraphic: IGraphic readonly dispid 1610743809;
  5632.     property ClosestFace: IGraphic readonly dispid 1610743810;
  5633.     property ClosestVertex: IVertex readonly dispid 1610743811;
  5634.     property ClosestSegmentVertex: IVertex readonly dispid 1610743812;
  5635.     property Depth: Double readonly dispid 1610743813;
  5636.     property Distance: Double readonly dispid 1610743814;
  5637.     property Drawing: IDrawing readonly dispid 1610743815;
  5638.     property Graphic: IGraphic readonly dispid 1610743816;
  5639.     property Index: Integer readonly dispid 1610743817;
  5640.     property OtherSegmentVertex: IVertex readonly dispid 1610743818;
  5641.     property Parent: IDispatch readonly dispid 1610743819;
  5642.     property RayPoint: IVertex readonly dispid 1610743820;
  5643.   end;
  5644.  
  5645. // *********************************************************************//
  5646. // Interface: Blocks
  5647. // Flags:     (4416) Dual OleAutomation Dispatchable
  5648. // GUID:      {6A481121-E531-11CF-A115-00A024158DAF}
  5649. // *********************************************************************//
  5650.   Blocks = interface(IDispatch)
  5651.     ['{6A481121-E531-11CF-A115-00A024158DAF}']
  5652.     function Get_Application_: IApplication; safecall;
  5653.     function Get_Count: Integer; safecall;
  5654.     function Get_Item(var Index: OleVariant): Block; safecall;
  5655.     function Get_Parent: IDispatch; safecall;
  5656.     function Get__NewEnum: IUnknown; safecall;
  5657.     function Add(const Name: WideString; const Graphic: IGraphic; var XRef: OleVariant; 
  5658.                  var YRef: OleVariant; var ZRef: OleVariant; var CopyGraphic: OleVariant; 
  5659.                  var InsertBlock: OleVariant; var Insert: OleVariant): Block; safecall;
  5660.     function _FindIndex(TableEntryID: Integer): Integer; safecall;
  5661.     function _ObjectFromID(TableEntryID: Integer): Block; safecall;
  5662.     function AddXRef(const Name: WideString; const Path: WideString; var XRef: OleVariant; 
  5663.                      var YRef: OleVariant; var ZRef: OleVariant): Block; safecall;
  5664.     property Application_: IApplication read Get_Application_;
  5665.     property Count: Integer read Get_Count;
  5666.     property Item[var Index: OleVariant]: Block read Get_Item;
  5667.     property Parent: IDispatch read Get_Parent;
  5668.     property _NewEnum: IUnknown read Get__NewEnum;
  5669.   end;
  5670.  
  5671. // *********************************************************************//
  5672. // DispIntf:  BlocksDisp
  5673. // Flags:     (4416) Dual OleAutomation Dispatchable
  5674. // GUID:      {6A481121-E531-11CF-A115-00A024158DAF}
  5675. // *********************************************************************//
  5676.   BlocksDisp = dispinterface
  5677.     ['{6A481121-E531-11CF-A115-00A024158DAF}']
  5678.     property Application_: IApplication readonly dispid 1610743808;
  5679.     property Count: Integer readonly dispid 1610743809;
  5680.     property Item[var Index: OleVariant]: Block readonly dispid 0; default;
  5681.     property Parent: IDispatch readonly dispid 1610743811;
  5682.     property _NewEnum: IUnknown readonly dispid -4;
  5683.     function Add(const Name: WideString; const Graphic: IGraphic; var XRef: OleVariant; 
  5684.                  var YRef: OleVariant; var ZRef: OleVariant; var CopyGraphic: OleVariant; 
  5685.                  var InsertBlock: OleVariant; var Insert: OleVariant): Block; dispid 1610743813;
  5686.     function _FindIndex(TableEntryID: Integer): Integer; dispid 1610743814;
  5687.     function _ObjectFromID(TableEntryID: Integer): Block; dispid 1610743815;
  5688.     function AddXRef(const Name: WideString; const Path: WideString; var XRef: OleVariant; 
  5689.                      var YRef: OleVariant; var ZRef: OleVariant): Block; dispid 1610743816;
  5690.   end;
  5691.  
  5692. // *********************************************************************//
  5693. // Interface: BrushStyles
  5694. // Flags:     (4416) Dual OleAutomation Dispatchable
  5695. // GUID:      {6A48111A-E531-11CF-A115-00A024158DAF}
  5696. // *********************************************************************//
  5697.   BrushStyles = interface(IDispatch)
  5698.     ['{6A48111A-E531-11CF-A115-00A024158DAF}']
  5699.     function Get_Application_: IApplication; safecall;
  5700.     function Get_Count: Integer; safecall;
  5701.     function Get_Item(var Index: OleVariant): BrushStyle; safecall;
  5702.     function Get_Parent: IDispatch; safecall;
  5703.     function Get__NewEnum: IUnknown; safecall;
  5704.     function Add(const Name: WideString; var HatchStyle: OleVariant; 
  5705.                  var BitmapFileName: OleVariant; var Patterns: OleVariant; 
  5706.                  var Description: OleVariant): BrushStyle; safecall;
  5707.     function _FindIndex(TableEntryID: Integer): Integer; safecall;
  5708.     function _ObjectFromID(TableEntryID: Integer): BrushStyle; safecall;
  5709.     property Application_: IApplication read Get_Application_;
  5710.     property Count: Integer read Get_Count;
  5711.     property Item[var Index: OleVariant]: BrushStyle read Get_Item;
  5712.     property Parent: IDispatch read Get_Parent;
  5713.     property _NewEnum: IUnknown read Get__NewEnum;
  5714.   end;
  5715.  
  5716. // *********************************************************************//
  5717. // DispIntf:  BrushStylesDisp
  5718. // Flags:     (4416) Dual OleAutomation Dispatchable
  5719. // GUID:      {6A48111A-E531-11CF-A115-00A024158DAF}
  5720. // *********************************************************************//
  5721.   BrushStylesDisp = dispinterface
  5722.     ['{6A48111A-E531-11CF-A115-00A024158DAF}']
  5723.     property Application_: IApplication readonly dispid 1610743808;
  5724.     property Count: Integer readonly dispid 1610743809;
  5725.     property Item[var Index: OleVariant]: BrushStyle readonly dispid 0; default;
  5726.     property Parent: IDispatch readonly dispid 1610743811;
  5727.     property _NewEnum: IUnknown readonly dispid -4;
  5728.     function Add(const Name: WideString; var HatchStyle: OleVariant; 
  5729.                  var BitmapFileName: OleVariant; var Patterns: OleVariant; 
  5730.                  var Description: OleVariant): BrushStyle; dispid 1610743813;
  5731.     function _FindIndex(TableEntryID: Integer): Integer; dispid 1610743814;
  5732.     function _ObjectFromID(TableEntryID: Integer): BrushStyle; dispid 1610743815;
  5733.   end;
  5734.  
  5735. // *********************************************************************//
  5736. // Interface: GraphicSets
  5737. // Flags:     (4416) Dual OleAutomation Dispatchable
  5738. // GUID:      {6A481135-E531-11CF-A115-00A024158DAF}
  5739. // *********************************************************************//
  5740.   GraphicSets = interface(IDispatch)
  5741.     ['{6A481135-E531-11CF-A115-00A024158DAF}']
  5742.     function Get_Application_: IApplication; safecall;
  5743.     function Get_Count: Integer; safecall;
  5744.     function Get_Drawing: IDrawing; safecall;
  5745.     function Get_Item(var Index: OleVariant): GraphicSet; safecall;
  5746.     function Get_Parent: IDrawing; safecall;
  5747.     function Get__NewEnum: IUnknown; safecall;
  5748.     function Add(var Name: OleVariant; var Temporary: OleVariant): GraphicSet; safecall;
  5749.     property Application_: IApplication read Get_Application_;
  5750.     property Count: Integer read Get_Count;
  5751.     property Drawing: IDrawing read Get_Drawing;
  5752.     property Item[var Index: OleVariant]: GraphicSet read Get_Item;
  5753.     property Parent: IDrawing read Get_Parent;
  5754.     property _NewEnum: IUnknown read Get__NewEnum;
  5755.   end;
  5756.  
  5757. // *********************************************************************//
  5758. // DispIntf:  GraphicSetsDisp
  5759. // Flags:     (4416) Dual OleAutomation Dispatchable
  5760. // GUID:      {6A481135-E531-11CF-A115-00A024158DAF}
  5761. // *********************************************************************//
  5762.   GraphicSetsDisp = dispinterface
  5763.     ['{6A481135-E531-11CF-A115-00A024158DAF}']
  5764.     property Application_: IApplication readonly dispid 1610743808;
  5765.     property Count: Integer readonly dispid 1610743809;
  5766.     property Drawing: IDrawing readonly dispid 1610743810;
  5767.     property Item[var Index: OleVariant]: GraphicSet readonly dispid 0; default;
  5768.     property Parent: IDrawing readonly dispid 1610743812;
  5769.     property _NewEnum: IUnknown readonly dispid -4;
  5770.     function Add(var Name: OleVariant; var Temporary: OleVariant): GraphicSet; dispid 1610743814;
  5771.   end;
  5772.  
  5773. // *********************************************************************//
  5774. // Interface: IGrid
  5775. // Flags:     (4416) Dual OleAutomation Dispatchable
  5776. // GUID:      {6A481132-E531-11CF-A115-00A024158DAF}
  5777. // *********************************************************************//
  5778.   IGrid = interface(IDispatch)
  5779.     ['{6A481132-E531-11CF-A115-00A024158DAF}']
  5780.     function Get_Type_: ImsiGridType; safecall;
  5781.     procedure Set_Type_(prop: ImsiGridType); safecall;
  5782.     function Duplicate: IGrid; safecall;
  5783.     property Type_: ImsiGridType read Get_Type_ write Set_Type_;
  5784.   end;
  5785.  
  5786. // *********************************************************************//
  5787. // DispIntf:  IGridDisp
  5788. // Flags:     (4416) Dual OleAutomation Dispatchable
  5789. // GUID:      {6A481132-E531-11CF-A115-00A024158DAF}
  5790. // *********************************************************************//
  5791.   IGridDisp = dispinterface
  5792.     ['{6A481132-E531-11CF-A115-00A024158DAF}']
  5793.     property Type_: ImsiGridType dispid 1610743808;
  5794.     function Duplicate: IGrid; dispid 1610743810;
  5795.   end;
  5796.  
  5797. // *********************************************************************//
  5798. // Interface: Layers
  5799. // Flags:     (4416) Dual OleAutomation Dispatchable
  5800. // GUID:      {6A481116-E531-11CF-A115-00A024158DAF}
  5801. // *********************************************************************//
  5802.   Layers = interface(IDispatch)
  5803.     ['{6A481116-E531-11CF-A115-00A024158DAF}']
  5804.     function Get_Application_: IApplication; safecall;
  5805.     function Get_Count: Integer; safecall;
  5806.     function Get_Item(var Index: OleVariant): Layer; safecall;
  5807.     function Get_Parent: IDispatch; safecall;
  5808.     function Get__NewEnum: IUnknown; safecall;
  5809.     function Add(const Name: WideString; var Visible: OleVariant; var Editable: OleVariant; 
  5810.                  var Frozen: OleVariant; var Color: OleVariant; var LineStyle: OleVariant; 
  5811.                  var BrushStyle: OleVariant; var GraphicStyle: OleVariant; var ZOrder: OleVariant): Layer; safecall;
  5812.     function _FindIndex(TableEntryID: Integer): Integer; safecall;
  5813.     function _ObjectFromID(TableEntryID: Integer): Layer; safecall;
  5814.     property Application_: IApplication read Get_Application_;
  5815.     property Count: Integer read Get_Count;
  5816.     property Item[var Index: OleVariant]: Layer read Get_Item;
  5817.     property Parent: IDispatch read Get_Parent;
  5818.     property _NewEnum: IUnknown read Get__NewEnum;
  5819.   end;
  5820.  
  5821. // *********************************************************************//
  5822. // DispIntf:  LayersDisp
  5823. // Flags:     (4416) Dual OleAutomation Dispatchable
  5824. // GUID:      {6A481116-E531-11CF-A115-00A024158DAF}
  5825. // *********************************************************************//
  5826.   LayersDisp = dispinterface
  5827.     ['{6A481116-E531-11CF-A115-00A024158DAF}']
  5828.     property Application_: IApplication readonly dispid 1610743808;
  5829.     property Count: Integer readonly dispid 1610743809;
  5830.     property Item[var Index: OleVariant]: Layer readonly dispid 0; default;
  5831.     property Parent: IDispatch readonly dispid 1610743811;
  5832.     property _NewEnum: IUnknown readonly dispid -4;
  5833.     function Add(const Name: WideString; var Visible: OleVariant; var Editable: OleVariant; 
  5834.                  var Frozen: OleVariant; var Color: OleVariant; var LineStyle: OleVariant; 
  5835.                  var BrushStyle: OleVariant; var GraphicStyle: OleVariant; var ZOrder: OleVariant): Layer; dispid 1610743813;
  5836.     function _FindIndex(TableEntryID: Integer): Integer; dispid 1610743814;
  5837.     function _ObjectFromID(TableEntryID: Integer): Layer; dispid 1610743815;
  5838.   end;
  5839.  
  5840. // *********************************************************************//
  5841. // Interface: LineStyles
  5842. // Flags:     (4416) Dual OleAutomation Dispatchable
  5843. // GUID:      {6A481118-E531-11CF-A115-00A024158DAF}
  5844. // *********************************************************************//
  5845.   LineStyles = interface(IDispatch)
  5846.     ['{6A481118-E531-11CF-A115-00A024158DAF}']
  5847.     function Get_Application_: IApplication; safecall;
  5848.     function Get_Count: Integer; safecall;
  5849.     function Get_Item(var Index: OleVariant): LineStyle; safecall;
  5850.     function Get_Parent: IDispatch; safecall;
  5851.     function Get__NewEnum: IUnknown; safecall;
  5852.     function Add(const Name: WideString; var Dashes: OleVariant; var Description: OleVariant): LineStyle; safecall;
  5853.     function _FindIndex(TableEntryID: Integer): Integer; safecall;
  5854.     function _ObjectFromID(TableEntryID: Integer): LineStyle; safecall;
  5855.     property Application_: IApplication read Get_Application_;
  5856.     property Count: Integer read Get_Count;
  5857.     property Item[var Index: OleVariant]: LineStyle read Get_Item;
  5858.     property Parent: IDispatch read Get_Parent;
  5859.     property _NewEnum: IUnknown read Get__NewEnum;
  5860.   end;
  5861.  
  5862. // *********************************************************************//
  5863. // DispIntf:  LineStylesDisp
  5864. // Flags:     (4416) Dual OleAutomation Dispatchable
  5865. // GUID:      {6A481118-E531-11CF-A115-00A024158DAF}
  5866. // *********************************************************************//
  5867.   LineStylesDisp = dispinterface
  5868.     ['{6A481118-E531-11CF-A115-00A024158DAF}']
  5869.     property Application_: IApplication readonly dispid 1610743808;
  5870.     property Count: Integer readonly dispid 1610743809;
  5871.     property Item[var Index: OleVariant]: LineStyle readonly dispid 0; default;
  5872.     property Parent: IDispatch readonly dispid 1610743811;
  5873.     property _NewEnum: IUnknown readonly dispid -4;
  5874.     function Add(const Name: WideString; var Dashes: OleVariant; var Description: OleVariant): LineStyle; dispid 1610743813;
  5875.     function _FindIndex(TableEntryID: Integer): Integer; dispid 1610743814;
  5876.     function _ObjectFromID(TableEntryID: Integer): LineStyle; dispid 1610743815;
  5877.   end;
  5878.  
  5879. // *********************************************************************//
  5880. // Interface: NamedViews
  5881. // Flags:     (4416) Dual OleAutomation Dispatchable
  5882. // GUID:      {6A48113D-E531-11CF-A115-00A024158DAF}
  5883. // *********************************************************************//
  5884.   NamedViews = interface(IDispatch)
  5885.     ['{6A48113D-E531-11CF-A115-00A024158DAF}']
  5886.     function Get_Application_: IApplication; safecall;
  5887.     function Get_Count: Integer; safecall;
  5888.     function Get_Item(var Index: OleVariant): NamedView; safecall;
  5889.     function Get_Parent: IDispatch; safecall;
  5890.     function Get__NewEnum: IUnknown; safecall;
  5891.     function Add(const Name: WideString; XMin: Double; YMin: Double; XMax: Double; YMax: Double): NamedView; safecall;
  5892.     function _FindIndex(TableEntryID: Integer): Integer; safecall;
  5893.     function _ObjectFromID(TableEntryID: Integer): NamedView; safecall;
  5894.     property Application_: IApplication read Get_Application_;
  5895.     property Count: Integer read Get_Count;
  5896.     property Item[var Index: OleVariant]: NamedView read Get_Item;
  5897.     property Parent: IDispatch read Get_Parent;
  5898.     property _NewEnum: IUnknown read Get__NewEnum;
  5899.   end;
  5900.  
  5901. // *********************************************************************//
  5902. // DispIntf:  NamedViewsDisp
  5903. // Flags:     (4416) Dual OleAutomation Dispatchable
  5904. // GUID:      {6A48113D-E531-11CF-A115-00A024158DAF}
  5905. // *********************************************************************//
  5906.   NamedViewsDisp = dispinterface
  5907.     ['{6A48113D-E531-11CF-A115-00A024158DAF}']
  5908.     property Application_: IApplication readonly dispid 1610743808;
  5909.     property Count: Integer readonly dispid 1610743809;
  5910.     property Item[var Index: OleVariant]: NamedView readonly dispid 0; default;
  5911.     property Parent: IDispatch readonly dispid 1610743811;
  5912.     property _NewEnum: IUnknown readonly dispid -4;
  5913.     function Add(const Name: WideString; XMin: Double; YMin: Double; XMax: Double; YMax: Double): NamedView; dispid 1610743813;
  5914.     function _FindIndex(TableEntryID: Integer): Integer; dispid 1610743814;
  5915.     function _ObjectFromID(TableEntryID: Integer): NamedView; dispid 1610743815;
  5916.   end;
  5917.  
  5918. // *********************************************************************//
  5919. // Interface: NamedView
  5920. // Flags:     (4416) Dual OleAutomation Dispatchable
  5921. // GUID:      {6A48113C-E531-11CF-A115-00A024158DAF}
  5922. // *********************************************************************//
  5923.   NamedView = interface(IDispatch)
  5924.     ['{6A48113C-E531-11CF-A115-00A024158DAF}']
  5925.     function Get_Application_: IApplication; safecall;
  5926.     function Get_Index: Integer; safecall;
  5927.     function Get_Name: WideString; safecall;
  5928.     function Get_Parent: IDispatch; safecall;
  5929.     function Get__TableEntryID: Integer; safecall;
  5930.     function Get_Drawing: IDrawing; safecall;
  5931.     function Get_BoundingBox: BoundingBox; safecall;
  5932.     procedure Set_BoundingBox(const prop: BoundingBox); safecall;
  5933.     procedure Delete; safecall;
  5934.     function Duplicate(const Name: WideString): NamedView; safecall;
  5935.     property Application_: IApplication read Get_Application_;
  5936.     property Index: Integer read Get_Index;
  5937.     property Name: WideString read Get_Name;
  5938.     property Parent: IDispatch read Get_Parent;
  5939.     property _TableEntryID: Integer read Get__TableEntryID;
  5940.     property Drawing: IDrawing read Get_Drawing;
  5941.     property BoundingBox: BoundingBox read Get_BoundingBox write Set_BoundingBox;
  5942.   end;
  5943.  
  5944. // *********************************************************************//
  5945. // DispIntf:  NamedViewDisp
  5946. // Flags:     (4416) Dual OleAutomation Dispatchable
  5947. // GUID:      {6A48113C-E531-11CF-A115-00A024158DAF}
  5948. // *********************************************************************//
  5949.   NamedViewDisp = dispinterface
  5950.     ['{6A48113C-E531-11CF-A115-00A024158DAF}']
  5951.     property Application_: IApplication readonly dispid 1610743808;
  5952.     property Index: Integer readonly dispid 1610743809;
  5953.     property Name: WideString readonly dispid 1610743810;
  5954.     property Parent: IDispatch readonly dispid 1610743811;
  5955.     property _TableEntryID: Integer readonly dispid 1610743812;
  5956.     property Drawing: IDrawing readonly dispid 1610743813;
  5957.     property BoundingBox: BoundingBox dispid 1610743814;
  5958.     procedure Delete; dispid 1610743816;
  5959.     function Duplicate(const Name: WideString): NamedView; dispid 1610743817;
  5960.   end;
  5961.  
  5962. // *********************************************************************//
  5963. // Interface: DrawingOptions
  5964. // Flags:     (4416) Dual OleAutomation Dispatchable
  5965. // GUID:      {6A481106-E531-11CF-A115-00A024158DAF}
  5966. // *********************************************************************//
  5967.   DrawingOptions = interface(IDispatch)
  5968.     ['{6A481106-E531-11CF-A115-00A024158DAF}']
  5969.   end;
  5970.  
  5971. // *********************************************************************//
  5972. // DispIntf:  DrawingOptionsDisp
  5973. // Flags:     (4416) Dual OleAutomation Dispatchable
  5974. // GUID:      {6A481106-E531-11CF-A115-00A024158DAF}
  5975. // *********************************************************************//
  5976.   DrawingOptionsDisp = dispinterface
  5977.     ['{6A481106-E531-11CF-A115-00A024158DAF}']
  5978.   end;
  5979.  
  5980. // *********************************************************************//
  5981. // Interface: PageSetup
  5982. // Flags:     (4416) Dual OleAutomation Dispatchable
  5983. // GUID:      {6A481133-E531-11CF-A115-00A024158DAF}
  5984. // *********************************************************************//
  5985.   PageSetup = interface(IDispatch)
  5986.     ['{6A481133-E531-11CF-A115-00A024158DAF}']
  5987.     function Get_Application_: IApplication; safecall;
  5988.     function Get_BottomMargin: Double; safecall;
  5989.     procedure Set_BottomMargin(prop: Double); safecall;
  5990.     function Get_Columns: Smallint; safecall;
  5991.     procedure Set_Columns(prop: Smallint); safecall;
  5992.     function Get_Drawing: IDrawing; safecall;
  5993.     function Get_LeftMargin: Double; safecall;
  5994.     procedure Set_LeftMargin(prop: Double); safecall;
  5995.     function Get_Parent: IDrawing; safecall;
  5996.     function Get_PrinterHeight: Double; safecall;
  5997.     procedure Set_PrinterHeight(prop: Double); safecall;
  5998.     function Get_PrinterOrientation: ImsiOrientation; safecall;
  5999.     procedure Set_PrinterOrientation(prop: ImsiOrientation); safecall;
  6000.     procedure Set_PrinterSize(const Param1: WideString); safecall;
  6001.     function Get_PrinterWidth: Double; safecall;
  6002.     procedure Set_PrinterWidth(prop: Double); safecall;
  6003.     function Get_RightMargin: Double; safecall;
  6004.     procedure Set_RightMargin(prop: Double); safecall;
  6005.     function Get_Rows: Smallint; safecall;
  6006.     procedure Set_Rows(prop: Smallint); safecall;
  6007.     function Get_Scale: Double; safecall;
  6008.     procedure Set_Scale(var prop: OleVariant); safecall;
  6009.     function Get_SheetHeight: Double; safecall;
  6010.     procedure Set_SheetHeight(prop: Double); safecall;
  6011.     function Get_SheetOrientation: ImsiOrientation; safecall;
  6012.     procedure Set_SheetOrientation(prop: ImsiOrientation); safecall;
  6013.     function Get_SheetWidth: Double; safecall;
  6014.     procedure Set_SheetWidth(prop: Double); safecall;
  6015.     function Get_TopMargin: Double; safecall;
  6016.     procedure Set_TopMargin(prop: Double); safecall;
  6017.     procedure FitOnOnePage(Width: Double; Height: Double); safecall;
  6018.     procedure GetPrinterSizes(out Sizes: OleVariant); safecall;
  6019.     property Application_: IApplication read Get_Application_;
  6020.     property BottomMargin: Double read Get_BottomMargin write Set_BottomMargin;
  6021.     property Columns: Smallint read Get_Columns write Set_Columns;
  6022.     property Drawing: IDrawing read Get_Drawing;
  6023.     property LeftMargin: Double read Get_LeftMargin write Set_LeftMargin;
  6024.     property Parent: IDrawing read Get_Parent;
  6025.     property PrinterHeight: Double read Get_PrinterHeight write Set_PrinterHeight;
  6026.     property PrinterOrientation: ImsiOrientation read Get_PrinterOrientation write Set_PrinterOrientation;
  6027.     property PrinterSize: WideString write Set_PrinterSize;
  6028.     property PrinterWidth: Double read Get_PrinterWidth write Set_PrinterWidth;
  6029.     property RightMargin: Double read Get_RightMargin write Set_RightMargin;
  6030.     property Rows: Smallint read Get_Rows write Set_Rows;
  6031.     property SheetHeight: Double read Get_SheetHeight write Set_SheetHeight;
  6032.     property SheetOrientation: ImsiOrientation read Get_SheetOrientation write Set_SheetOrientation;
  6033.     property SheetWidth: Double read Get_SheetWidth write Set_SheetWidth;
  6034.     property TopMargin: Double read Get_TopMargin write Set_TopMargin;
  6035.   end;
  6036.  
  6037. // *********************************************************************//
  6038. // DispIntf:  PageSetupDisp
  6039. // Flags:     (4416) Dual OleAutomation Dispatchable
  6040. // GUID:      {6A481133-E531-11CF-A115-00A024158DAF}
  6041. // *********************************************************************//
  6042.   PageSetupDisp = dispinterface
  6043.     ['{6A481133-E531-11CF-A115-00A024158DAF}']
  6044.     property Application_: IApplication readonly dispid 1610743808;
  6045.     property BottomMargin: Double dispid 1610743809;
  6046.     property Columns: Smallint dispid 1610743811;
  6047.     property Drawing: IDrawing readonly dispid 1610743813;
  6048.     property LeftMargin: Double dispid 1610743814;
  6049.     property Parent: IDrawing readonly dispid 1610743816;
  6050.     property PrinterHeight: Double dispid 1610743817;
  6051.     property PrinterOrientation: ImsiOrientation dispid 1610743819;
  6052.     property PrinterSize: WideString writeonly dispid 1610743821;
  6053.     property PrinterWidth: Double dispid 1610743822;
  6054.     property RightMargin: Double dispid 1610743824;
  6055.     property Rows: Smallint dispid 1610743826;
  6056.     function Scale: Double; dispid 1610743828;
  6057.     property SheetHeight: Double dispid 1610743830;
  6058.     property SheetOrientation: ImsiOrientation dispid 1610743832;
  6059.     property SheetWidth: Double dispid 1610743834;
  6060.     property TopMargin: Double dispid 1610743836;
  6061.     procedure FitOnOnePage(Width: Double; Height: Double); dispid 1610743838;
  6062.     procedure GetPrinterSizes(out Sizes: OleVariant); dispid 1610743839;
  6063.   end;
  6064.  
  6065. // *********************************************************************//
  6066. // Interface: Styles
  6067. // Flags:     (4416) Dual OleAutomation Dispatchable
  6068. // GUID:      {6A48113B-E531-11CF-A115-00A024158DAF}
  6069. // *********************************************************************//
  6070.   Styles = interface(IDispatch)
  6071.     ['{6A48113B-E531-11CF-A115-00A024158DAF}']
  6072.     function Get_Application_: IApplication; safecall;
  6073.     function Get_Count: Integer; safecall;
  6074.     function Get_Item(var Index: OleVariant): Style; safecall;
  6075.     function Get_Parent: IDispatch; safecall;
  6076.     function Get__NewEnum: IUnknown; safecall;
  6077.     function Add(const Name: WideString; var BasedOn: OleVariant; var Properties: OleVariant): Style; safecall;
  6078.     property Application_: IApplication read Get_Application_;
  6079.     property Count: Integer read Get_Count;
  6080.     property Item[var Index: OleVariant]: Style read Get_Item;
  6081.     property Parent: IDispatch read Get_Parent;
  6082.     property _NewEnum: IUnknown read Get__NewEnum;
  6083.   end;
  6084.  
  6085. // *********************************************************************//
  6086. // DispIntf:  StylesDisp
  6087. // Flags:     (4416) Dual OleAutomation Dispatchable
  6088. // GUID:      {6A48113B-E531-11CF-A115-00A024158DAF}
  6089. // *********************************************************************//
  6090.   StylesDisp = dispinterface
  6091.     ['{6A48113B-E531-11CF-A115-00A024158DAF}']
  6092.     property Application_: IApplication readonly dispid 1610743808;
  6093.     property Count: Integer readonly dispid 1610743809;
  6094.     property Item[var Index: OleVariant]: Style readonly dispid 0; default;
  6095.     property Parent: IDispatch readonly dispid 1610743811;
  6096.     property _NewEnum: IUnknown readonly dispid -4;
  6097.     function Add(const Name: WideString; var BasedOn: OleVariant; var Properties: OleVariant): Style; dispid 1610743813;
  6098.   end;
  6099.  
  6100. // *********************************************************************//
  6101. // Interface: Views
  6102. // Flags:     (4416) Dual OleAutomation Dispatchable
  6103. // GUID:      {6A481111-E531-11CF-A115-00A024158DAF}
  6104. // *********************************************************************//
  6105.   Views = interface(IDispatch)
  6106.     ['{6A481111-E531-11CF-A115-00A024158DAF}']
  6107.     function Get_Application_: IApplication; safecall;
  6108.     function Get_Count: Integer; safecall;
  6109.     function Get_Item(var Index: OleVariant): View; safecall;
  6110.     function Get_Parent: IDrawing; safecall;
  6111.     function Get__NewEnum: IUnknown; safecall;
  6112.     function Add(var HWND: OleVariant; var hDC: OleVariant): View; safecall;
  6113.     procedure Refresh; safecall;
  6114.     function _FindIndex(vp: Integer): Integer; safecall;
  6115.     procedure InvalidateObject(const Object_: IDispatch); safecall;
  6116.     property Application_: IApplication read Get_Application_;
  6117.     property Count: Integer read Get_Count;
  6118.     property Item[var Index: OleVariant]: View read Get_Item;
  6119.     property Parent: IDrawing read Get_Parent;
  6120.     property _NewEnum: IUnknown read Get__NewEnum;
  6121.   end;
  6122.  
  6123. // *********************************************************************//
  6124. // DispIntf:  ViewsDisp
  6125. // Flags:     (4416) Dual OleAutomation Dispatchable
  6126. // GUID:      {6A481111-E531-11CF-A115-00A024158DAF}
  6127. // *********************************************************************//
  6128.   ViewsDisp = dispinterface
  6129.     ['{6A481111-E531-11CF-A115-00A024158DAF}']
  6130.     property Application_: IApplication readonly dispid 1610743808;
  6131.     property Count: Integer readonly dispid 1610743809;
  6132.     property Item[var Index: OleVariant]: View readonly dispid 0; default;
  6133.     property Parent: IDrawing readonly dispid 1610743811;
  6134.     property _NewEnum: IUnknown readonly dispid -4;
  6135.     function Add(var HWND: OleVariant; var hDC: OleVariant): View; dispid 1610743813;
  6136.     procedure Refresh; dispid 1610743814;
  6137.     function _FindIndex(vp: Integer): Integer; dispid 1610743815;
  6138.     procedure InvalidateObject(const Object_: IDispatch); dispid 1610743816;
  6139.   end;
  6140.  
  6141. // *********************************************************************//
  6142. // Interface: UndoRecord
  6143. // Flags:     (4416) Dual OleAutomation Dispatchable
  6144. // GUID:      {6A481136-E531-11CF-A115-00A024158DAF}
  6145. // *********************************************************************//
  6146.   UndoRecord = interface(IDispatch)
  6147.     ['{6A481136-E531-11CF-A115-00A024158DAF}']
  6148.     function Get_Application_: IApplication; safecall;
  6149.     function Get_Drawing: IDrawing; safecall;
  6150.     function Get_MenuText(lcid: Integer): WideString; safecall;
  6151.     procedure Set_MenuText(lcid: Integer; const prop: WideString); safecall;
  6152.     function Get_Parent: IDispatch; safecall;
  6153.     procedure AddGraphic(const Graphic: IGraphic); safecall;
  6154.     procedure AddGraphicForModify(const Graphic: IGraphic); safecall;
  6155.     procedure Close; safecall;
  6156.     procedure Delete; safecall;
  6157.     procedure DeleteGraphic(const Graphic: IGraphic); safecall;
  6158.     property Application_: IApplication read Get_Application_;
  6159.     property Drawing: IDrawing read Get_Drawing;
  6160.     property MenuText[lcid: Integer]: WideString read Get_MenuText write Set_MenuText;
  6161.     property Parent: IDispatch read Get_Parent;
  6162.   end;
  6163.  
  6164. // *********************************************************************//
  6165. // DispIntf:  UndoRecordDisp
  6166. // Flags:     (4416) Dual OleAutomation Dispatchable
  6167. // GUID:      {6A481136-E531-11CF-A115-00A024158DAF}
  6168. // *********************************************************************//
  6169.   UndoRecordDisp = dispinterface
  6170.     ['{6A481136-E531-11CF-A115-00A024158DAF}']
  6171.     property Application_: IApplication readonly dispid 1610743808;
  6172.     property Drawing: IDrawing readonly dispid 1610743809;
  6173.     property MenuText[lcid: Integer]: WideString dispid 1610743810;
  6174.     property Parent: IDispatch readonly dispid 1610743812;
  6175.     procedure AddGraphic(const Graphic: IGraphic); dispid 1610743813;
  6176.     procedure AddGraphicForModify(const Graphic: IGraphic); dispid 1610743814;
  6177.     procedure Close; dispid 1610743815;
  6178.     procedure Delete; dispid 1610743816;
  6179.     procedure DeleteGraphic(const Graphic: IGraphic); dispid 1610743817;
  6180.   end;
  6181.  
  6182. // *********************************************************************//
  6183. // Interface: Macros
  6184. // Flags:     (4416) Dual OleAutomation Dispatchable
  6185. // GUID:      {D04FB7F1-8D02-11D2-8DAF-000021452DB6}
  6186. // *********************************************************************//
  6187.   Macros = interface(IDispatch)
  6188.     ['{D04FB7F1-8D02-11D2-8DAF-000021452DB6}']
  6189.     function Get_Application_: IApplication; safecall;
  6190.     function Get_Count: Integer; safecall;
  6191.     function Get_Item(var Index: OleVariant): Macro; safecall;
  6192.     function Get_Parent: IDispatch; safecall;
  6193.     function Get__NewEnum: IUnknown; safecall;
  6194.     function Add(const Name: WideString; const Path: WideString): Macro; safecall;
  6195.     function _FindIndex(TableEntryID: Integer): Integer; safecall;
  6196.     function _ObjectFromID(TableEntryID: Integer): Macro; safecall;
  6197.     property Application_: IApplication read Get_Application_;
  6198.     property Count: Integer read Get_Count;
  6199.     property Item[var Index: OleVariant]: Macro read Get_Item;
  6200.     property Parent: IDispatch read Get_Parent;
  6201.     property _NewEnum: IUnknown read Get__NewEnum;
  6202.   end;
  6203.  
  6204. // *********************************************************************//
  6205. // DispIntf:  MacrosDisp
  6206. // Flags:     (4416) Dual OleAutomation Dispatchable
  6207. // GUID:      {D04FB7F1-8D02-11D2-8DAF-000021452DB6}
  6208. // *********************************************************************//
  6209.   MacrosDisp = dispinterface
  6210.     ['{D04FB7F1-8D02-11D2-8DAF-000021452DB6}']
  6211.     property Application_: IApplication readonly dispid 1610743808;
  6212.     property Count: Integer readonly dispid 1610743809;
  6213.     property Item[var Index: OleVariant]: Macro readonly dispid 0; default;
  6214.     property Parent: IDispatch readonly dispid 1610743811;
  6215.     property _NewEnum: IUnknown readonly dispid -4;
  6216.     function Add(const Name: WideString; const Path: WideString): Macro; dispid 1610743813;
  6217.     function _FindIndex(TableEntryID: Integer): Integer; dispid 1610743814;
  6218.     function _ObjectFromID(TableEntryID: Integer): Macro; dispid 1610743815;
  6219.   end;
  6220.  
  6221. // *********************************************************************//
  6222. // Interface: Macro
  6223. // Flags:     (4416) Dual OleAutomation Dispatchable
  6224. // GUID:      {D04FB7F0-8D02-11D2-8DAF-000021452DB6}
  6225. // *********************************************************************//
  6226.   Macro = interface(IDispatch)
  6227.     ['{D04FB7F0-8D02-11D2-8DAF-000021452DB6}']
  6228.     function Get_Application_: IApplication; safecall;
  6229.     function Get_Index: Integer; safecall;
  6230.     function Get_Name: WideString; safecall;
  6231.     procedure Set_Name(const prop: WideString); safecall;
  6232.     function Get_Parent: IDispatch; safecall;
  6233.     function Get__TableEntryID: Integer; safecall;
  6234.     function Get_Drawing: IDrawing; safecall;
  6235.     function Get_Path: WideString; safecall;
  6236.     procedure Set_Path(const prop: WideString); safecall;
  6237.     procedure Delete; safecall;
  6238.     property Application_: IApplication read Get_Application_;
  6239.     property Index: Integer read Get_Index;
  6240.     property Name: WideString read Get_Name write Set_Name;
  6241.     property Parent: IDispatch read Get_Parent;
  6242.     property _TableEntryID: Integer read Get__TableEntryID;
  6243.     property Drawing: IDrawing read Get_Drawing;
  6244.     property Path: WideString read Get_Path write Set_Path;
  6245.   end;
  6246.  
  6247. // *********************************************************************//
  6248. // DispIntf:  MacroDisp
  6249. // Flags:     (4416) Dual OleAutomation Dispatchable
  6250. // GUID:      {D04FB7F0-8D02-11D2-8DAF-000021452DB6}
  6251. // *********************************************************************//
  6252.   MacroDisp = dispinterface
  6253.     ['{D04FB7F0-8D02-11D2-8DAF-000021452DB6}']
  6254.     property Application_: IApplication readonly dispid 1610743808;
  6255.     property Index: Integer readonly dispid 1610743809;
  6256.     property Name: WideString dispid 1610743810;
  6257.     property Parent: IDispatch readonly dispid 1610743812;
  6258.     property _TableEntryID: Integer readonly dispid 1610743813;
  6259.     property Drawing: IDrawing readonly dispid 1610743814;
  6260.     property Path: WideString dispid 1610743815;
  6261.     procedure Delete; dispid 1610743817;
  6262.   end;
  6263.  
  6264. // *********************************************************************//
  6265. // Interface: IAppEvents
  6266. // Flags:     (4096) Dispatchable
  6267. // GUID:      {6A481301-E531-11CF-A115-00A024158DAF}
  6268. // *********************************************************************//
  6269.   IAppEvents = interface(IDispatch)
  6270.     ['{6A481301-E531-11CF-A115-00A024158DAF}']
  6271.     function BeforeExit(const TheApp: IApplication; var Cancel: IMSI_BOOL): HResult; stdcall;
  6272.     function DrawingNew(const WhichDrawing: IDrawing): HResult; stdcall;
  6273.     function DrawingOpen(const WhichDrawing: IDrawing): HResult; stdcall;
  6274.     function DrawingActivate(const WhichDrawing: IDrawing): HResult; stdcall;
  6275.     function DrawingDeactivate(const WhichDrawing: IDrawing): HResult; stdcall;
  6276.     function DrawingBeforeClose(const WhichDrawing: IDrawing; var Cancel: IMSI_BOOL): HResult; stdcall;
  6277.     function DrawingBeforeSave(const WhichDrawing: IDrawing; var SaveAs: IMSI_BOOL; 
  6278.                                var Cancel: IMSI_BOOL): HResult; stdcall;
  6279.     function WindowResize(const WhichDrawing: IDrawing; const WhichView: View; 
  6280.                           const WhichWindow: Window_): HResult; stdcall;
  6281.     function WindowActivate(const WhichDrawing: IDrawing; const WhichView: View; 
  6282.                             const WhichWindow: Window_): HResult; stdcall;
  6283.     function WindowDeactivate(const WhichDrawing: IDrawing; const WhichView: View; 
  6284.                               const WhichWindow: Window_): HResult; stdcall;
  6285.     function MouseDown(const WhichDrawing: IDrawing; const WhichView: View; 
  6286.                        const WhichWindow: Window_; Button: ImsiMouseButton; Shift: Integer; 
  6287.                        X: Integer; Y: Integer; var Cancel: IMSI_BOOL): HResult; stdcall;
  6288.     function MouseUp(const WhichDrawing: IDrawing; const WhichView: View; 
  6289.                      const WhichWindow: Window_; Button: ImsiMouseButton; Shift: Integer; 
  6290.                      X: Integer; Y: Integer; var Cancel: IMSI_BOOL): HResult; stdcall;
  6291.     function MouseMove(const WhichDrawing: IDrawing; const WhichView: View; 
  6292.                        const WhichWindow: Window_; Shift: Integer; X: Integer; Y: Integer; 
  6293.                        var Cancel: IMSI_BOOL): HResult; stdcall;
  6294.     function BeforeDoubleClick(const WhichDrawing: IDrawing; const WhichView: View; 
  6295.                                const WhichWindow: Window_; const Sel: Selection; 
  6296.                                var Cancel: IMSI_BOOL): HResult; stdcall;
  6297.     function BeforeRightClick(const WhichDrawing: IDrawing; const WhichView: View; 
  6298.                               const WhichWindow: Window_; const Sel: Selection; 
  6299.                               var Cancel: IMSI_BOOL): HResult; stdcall;
  6300.     function SelectionChange(const WhichDrawing: IDrawing; const WhichView: View; 
  6301.                              const WhichWindow: Window_; const Sel: Selection): HResult; stdcall;
  6302.     function CommandBarControlHit(const WhichControl: CommandBarControl; var Cancel: IMSI_BOOL): HResult; stdcall;
  6303.     function CommandBarControlStatus(const WhichControl: CommandBarControl): HResult; stdcall;
  6304.     function RunTool(const WhichTool: Tool): HResult; stdcall;
  6305.     function PointSnapped(const WhichDrawing: IDrawing; const WhichView: View; X: Integer; 
  6306.                           Y: Integer; const PointRaw: IVertex; const PointSnapped: IVertex): HResult; stdcall;
  6307.     function PointPick(const WhichDrawing: IDrawing; const WhichView: View; 
  6308.                        const Result_: PickResult; PickWasCanceled: IMSI_BOOL): HResult; stdcall;
  6309.     function RectanglePick(const WhichDrawing: IDrawing; const WhichView: View; 
  6310.                            const Result_: PickResult; PickWasCanceled: IMSI_BOOL): HResult; stdcall;
  6311.     function PolygonPick(const WhichDrawing: IDrawing; const WhichView: View; 
  6312.                          const Result_: PickResult; PickWasCanceled: IMSI_BOOL): HResult; stdcall;
  6313.     function ViewBeforeRedraw(const WhichDrawing: IDrawing; const WhichView: View): HResult; stdcall;
  6314.     function ViewAfterRedraw(const WhichDrawing: IDrawing; const WhichView: View): HResult; stdcall;
  6315.     function VirtualIntersectionPick(const WhichDrawing: IDrawing; const WhichView: View; 
  6316.                                      const Result_: PickResult; PickWasCanceled: IMSI_BOOL): HResult; stdcall;
  6317.     function CommandBarControlDone(const WhichControl: CommandBarControl): HResult; stdcall;
  6318.     function Drop(const WhichDrawing: IDrawing; const WhichView: View; const WhichWindow: Window_; 
  6319.                   const Sel: Selection): HResult; stdcall;
  6320.     function DrawingAfterSave(const WhichDrawing: IDrawing): HResult; stdcall;
  6321.   end;
  6322.  
  6323. // *********************************************************************//
  6324. // Interface: IBrushPattern
  6325. // Flags:     (4416) Dual OleAutomation Dispatchable
  6326. // GUID:      {6A481145-E531-11CF-A115-00A024158DAF}
  6327. // *********************************************************************//
  6328.   IBrushPattern = interface(IDispatch)
  6329.     ['{6A481145-E531-11CF-A115-00A024158DAF}']
  6330.     function Get_Application_: IApplication; safecall;
  6331.     function Get_Count: Integer; safecall;
  6332.     procedure AddItem(var Dashes: OleVariant; XOrigin: Double; YOrigin: Double; Angle: Double); safecall;
  6333.     procedure GetItem(Index: Integer; out Dashes: OleVariant; out XOrigin: Double; 
  6334.                       out YOrigin: Double; out Width: Double; out Height: Double; out Angle: Double); safecall;
  6335.     procedure SetItem(Index: Integer; var Dashes: OleVariant; XOrigin: Double; YOrigin: Double; 
  6336.                       Width: Double; Height: Double; Angle: Double); safecall;
  6337.     property Application_: IApplication read Get_Application_;
  6338.     property Count: Integer read Get_Count;
  6339.   end;
  6340.  
  6341. // *********************************************************************//
  6342. // DispIntf:  IBrushPatternDisp
  6343. // Flags:     (4416) Dual OleAutomation Dispatchable
  6344. // GUID:      {6A481145-E531-11CF-A115-00A024158DAF}
  6345. // *********************************************************************//
  6346.   IBrushPatternDisp = dispinterface
  6347.     ['{6A481145-E531-11CF-A115-00A024158DAF}']
  6348.     property Application_: IApplication readonly dispid 1610743808;
  6349.     property Count: Integer readonly dispid 1610743809;
  6350.     procedure AddItem(var Dashes: OleVariant; XOrigin: Double; YOrigin: Double; Angle: Double); dispid 1610743810;
  6351.     procedure GetItem(Index: Integer; out Dashes: OleVariant; out XOrigin: Double; 
  6352.                       out YOrigin: Double; out Width: Double; out Height: Double; out Angle: Double); dispid 1610743811;
  6353.     procedure SetItem(Index: Integer; var Dashes: OleVariant; XOrigin: Double; YOrigin: Double; 
  6354.                       Width: Double; Height: Double; Angle: Double); dispid 1610743812;
  6355.   end;
  6356.  
  6357.   CoGlobal = class
  6358.     class function Create: IGlobal;
  6359.     class function CreateRemote(const MachineName: string): IGlobal;
  6360.   end;
  6361.  
  6362.   CoApplication_ = class
  6363.     class function Create: IApplication;
  6364.     class function CreateRemote(const MachineName: string): IApplication;
  6365.   end;
  6366.  
  6367.   CoDrawing = class
  6368.     class function Create: IDrawing;
  6369.     class function CreateRemote(const MachineName: string): IDrawing;
  6370.   end;
  6371.  
  6372.   CoGraphic = class
  6373.     class function Create: IGraphic;
  6374.     class function CreateRemote(const MachineName: string): IGraphic;
  6375.   end;
  6376.  
  6377.   CoVertex = class
  6378.     class function Create: IVertex;
  6379.     class function CreateRemote(const MachineName: string): IVertex;
  6380.   end;
  6381.  
  6382.   CoMatrix = class
  6383.     class function Create: IMatrix;
  6384.     class function CreateRemote(const MachineName: string): IMatrix;
  6385.   end;
  6386.  
  6387.   CoCamera = class
  6388.     class function Create: ICamera;
  6389.     class function CreateRemote(const MachineName: string): ICamera;
  6390.   end;
  6391.  
  6392.   CoGrid = class
  6393.     class function Create: IGrid;
  6394.     class function CreateRemote(const MachineName: string): IGrid;
  6395.   end;
  6396.  
  6397.   CoBrushPattern = class
  6398.     class function Create: IBrushPattern;
  6399.     class function CreateRemote(const MachineName: string): IBrushPattern;
  6400.   end;
  6401.  
  6402.   CoXGlobal = class
  6403.     class function Create: IGlobal;
  6404.     class function CreateRemote(const MachineName: string): IGlobal;
  6405.   end;
  6406.  
  6407.   CoXApplication = class
  6408.     class function Create: IApplication;
  6409.     class function CreateRemote(const MachineName: string): IApplication;
  6410.   end;
  6411.  
  6412.   CoXDrawing = class
  6413.     class function Create: IDrawing;
  6414.     class function CreateRemote(const MachineName: string): IDrawing;
  6415.   end;
  6416.  
  6417.   CoXGraphic = class
  6418.     class function Create: IGraphic;
  6419.     class function CreateRemote(const MachineName: string): IGraphic;
  6420.   end;
  6421.  
  6422.   CoXVertex = class
  6423.     class function Create: IVertex;
  6424.     class function CreateRemote(const MachineName: string): IVertex;
  6425.   end;
  6426.  
  6427.   CoXMatrix = class
  6428.     class function Create: IMatrix;
  6429.     class function CreateRemote(const MachineName: string): IMatrix;
  6430.   end;
  6431.  
  6432.   CoXCamera = class
  6433.     class function Create: ICamera;
  6434.     class function CreateRemote(const MachineName: string): ICamera;
  6435.   end;
  6436.  
  6437.   CoXGrid = class
  6438.     class function Create: IGrid;
  6439.     class function CreateRemote(const MachineName: string): IGrid;
  6440.   end;
  6441.  
  6442.   CoXBrushPattern = class
  6443.     class function Create: IBrushPattern;
  6444.     class function CreateRemote(const MachineName: string): IBrushPattern;
  6445.   end;
  6446.  
  6447. implementation
  6448.  
  6449. uses ComObj;
  6450.  
  6451. class function CoGlobal.Create: IGlobal;
  6452. begin
  6453.   Result := CreateComObject(CLASS_Global) as IGlobal;
  6454. end;
  6455.  
  6456. class function CoGlobal.CreateRemote(const MachineName: string): IGlobal;
  6457. begin
  6458.   Result := CreateRemoteComObject(MachineName, CLASS_Global) as IGlobal;
  6459. end;
  6460.  
  6461. class function CoApplication_.Create: IApplication;
  6462. begin
  6463.   Result := CreateComObject(CLASS_Application_) as IApplication;
  6464. end;
  6465.  
  6466. class function CoApplication_.CreateRemote(const MachineName: string): IApplication;
  6467. begin
  6468.   Result := CreateRemoteComObject(MachineName, CLASS_Application_) as IApplication;
  6469. end;
  6470.  
  6471. class function CoDrawing.Create: IDrawing;
  6472. begin
  6473.   Result := CreateComObject(CLASS_Drawing) as IDrawing;
  6474. end;
  6475.  
  6476. class function CoDrawing.CreateRemote(const MachineName: string): IDrawing;
  6477. begin
  6478.   Result := CreateRemoteComObject(MachineName, CLASS_Drawing) as IDrawing;
  6479. end;
  6480.  
  6481. class function CoGraphic.Create: IGraphic;
  6482. begin
  6483.   Result := CreateComObject(CLASS_Graphic) as IGraphic;
  6484. end;
  6485.  
  6486. class function CoGraphic.CreateRemote(const MachineName: string): IGraphic;
  6487. begin
  6488.   Result := CreateRemoteComObject(MachineName, CLASS_Graphic) as IGraphic;
  6489. end;
  6490.  
  6491. class function CoVertex.Create: IVertex;
  6492. begin
  6493.   Result := CreateComObject(CLASS_Vertex) as IVertex;
  6494. end;
  6495.  
  6496. class function CoVertex.CreateRemote(const MachineName: string): IVertex;
  6497. begin
  6498.   Result := CreateRemoteComObject(MachineName, CLASS_Vertex) as IVertex;
  6499. end;
  6500.  
  6501. class function CoMatrix.Create: IMatrix;
  6502. begin
  6503.   Result := CreateComObject(CLASS_Matrix) as IMatrix;
  6504. end;
  6505.  
  6506. class function CoMatrix.CreateRemote(const MachineName: string): IMatrix;
  6507. begin
  6508.   Result := CreateRemoteComObject(MachineName, CLASS_Matrix) as IMatrix;
  6509. end;
  6510.  
  6511. class function CoCamera.Create: ICamera;
  6512. begin
  6513.   Result := CreateComObject(CLASS_Camera) as ICamera;
  6514. end;
  6515.  
  6516. class function CoCamera.CreateRemote(const MachineName: string): ICamera;
  6517. begin
  6518.   Result := CreateRemoteComObject(MachineName, CLASS_Camera) as ICamera;
  6519. end;
  6520.  
  6521. class function CoGrid.Create: IGrid;
  6522. begin
  6523.   Result := CreateComObject(CLASS_Grid) as IGrid;
  6524. end;
  6525.  
  6526. class function CoGrid.CreateRemote(const MachineName: string): IGrid;
  6527. begin
  6528.   Result := CreateRemoteComObject(MachineName, CLASS_Grid) as IGrid;
  6529. end;
  6530.  
  6531. class function CoBrushPattern.Create: IBrushPattern;
  6532. begin
  6533.   Result := CreateComObject(CLASS_BrushPattern) as IBrushPattern;
  6534. end;
  6535.  
  6536. class function CoBrushPattern.CreateRemote(const MachineName: string): IBrushPattern;
  6537. begin
  6538.   Result := CreateRemoteComObject(MachineName, CLASS_BrushPattern) as IBrushPattern;
  6539. end;
  6540.  
  6541. class function CoXGlobal.Create: IGlobal;
  6542. begin
  6543.   Result := CreateComObject(CLASS_XGlobal) as IGlobal;
  6544. end;
  6545.  
  6546. class function CoXGlobal.CreateRemote(const MachineName: string): IGlobal;
  6547. begin
  6548.   Result := CreateRemoteComObject(MachineName, CLASS_XGlobal) as IGlobal;
  6549. end;
  6550.  
  6551. class function CoXApplication.Create: IApplication;
  6552. begin
  6553.   Result := CreateComObject(CLASS_XApplication) as IApplication;
  6554. end;
  6555.  
  6556. class function CoXApplication.CreateRemote(const MachineName: string): IApplication;
  6557. begin
  6558.   Result := CreateRemoteComObject(MachineName, CLASS_XApplication) as IApplication;
  6559. end;
  6560.  
  6561. class function CoXDrawing.Create: IDrawing;
  6562. begin
  6563.   Result := CreateComObject(CLASS_XDrawing) as IDrawing;
  6564. end;
  6565.  
  6566. class function CoXDrawing.CreateRemote(const MachineName: string): IDrawing;
  6567. begin
  6568.   Result := CreateRemoteComObject(MachineName, CLASS_XDrawing) as IDrawing;
  6569. end;
  6570.  
  6571. class function CoXGraphic.Create: IGraphic;
  6572. begin
  6573.   Result := CreateComObject(CLASS_XGraphic) as IGraphic;
  6574. end;
  6575.  
  6576. class function CoXGraphic.CreateRemote(const MachineName: string): IGraphic;
  6577. begin
  6578.   Result := CreateRemoteComObject(MachineName, CLASS_XGraphic) as IGraphic;
  6579. end;
  6580.  
  6581. class function CoXVertex.Create: IVertex;
  6582. begin
  6583.   Result := CreateComObject(CLASS_XVertex) as IVertex;
  6584. end;
  6585.  
  6586. class function CoXVertex.CreateRemote(const MachineName: string): IVertex;
  6587. begin
  6588.   Result := CreateRemoteComObject(MachineName, CLASS_XVertex) as IVertex;
  6589. end;
  6590.  
  6591. class function CoXMatrix.Create: IMatrix;
  6592. begin
  6593.   Result := CreateComObject(CLASS_XMatrix) as IMatrix;
  6594. end;
  6595.  
  6596. class function CoXMatrix.CreateRemote(const MachineName: string): IMatrix;
  6597. begin
  6598.   Result := CreateRemoteComObject(MachineName, CLASS_XMatrix) as IMatrix;
  6599. end;
  6600.  
  6601. class function CoXCamera.Create: ICamera;
  6602. begin
  6603.   Result := CreateComObject(CLASS_XCamera) as ICamera;
  6604. end;
  6605.  
  6606. class function CoXCamera.CreateRemote(const MachineName: string): ICamera;
  6607. begin
  6608.   Result := CreateRemoteComObject(MachineName, CLASS_XCamera) as ICamera;
  6609. end;
  6610.  
  6611. class function CoXGrid.Create: IGrid;
  6612. begin
  6613.   Result := CreateComObject(CLASS_XGrid) as IGrid;
  6614. end;
  6615.  
  6616. class function CoXGrid.CreateRemote(const MachineName: string): IGrid;
  6617. begin
  6618.   Result := CreateRemoteComObject(MachineName, CLASS_XGrid) as IGrid;
  6619. end;
  6620.  
  6621. class function CoXBrushPattern.Create: IBrushPattern;
  6622. begin
  6623.   Result := CreateComObject(CLASS_XBrushPattern) as IBrushPattern;
  6624. end;
  6625.  
  6626. class function CoXBrushPattern.CreateRemote(const MachineName: string): IBrushPattern;
  6627. begin
  6628.   Result := CreateRemoteComObject(MachineName, CLASS_XBrushPattern) as IBrushPattern;
  6629. end;
  6630.  
  6631. end.
  6632.